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ABSTRACT 



Connectiag heterogenous computer systems via local area 
networks presents a challenge to software designers for the 
development of effective, reliable, and modifiable network 
communication software. 

This thesis presents a set of hierarchical program 
modules written for use on any INTELLTC MDS microcomputer 
development system, running the CP/M-80 operating system, to 
allow the system to become part of an Ethernet local area 
network. These program modules were written to not only 
obey the principles of software engineering, but to also 
reflect the same functional hierarchy as the International 
Standards Organization Open System Interconnection (ISO OSI ) 
architectural reference model for computer networks. 
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I. INTRODUCTION 



A. DISCLAIMER 

Many terns used in this thesis are registered trademarks 
of commercial products. Rather than attempt to cite each 
individual occurrence of a trademark, all registered trade- 
marks appearing in this thesis are listed below following 
the firm holding the trademark: 

Digital Research Incorporated, Pacific Grove, California 
CP/M-60 Operating System 
CP/M-86 Operating System 
PL/I-80 Programming Language 
PL/I-86 Programming Language 
LINS-80 Linking Utility 
XLT-86 Code Conversion Utility 
Intel Corporation, Santa Clara, California 

INTSLLEC MD3 Microcomputer Development System 
Multibus Bus Architecture 
8080/8086 Microprocessors 

8060 Assembly Language Programming Language 
ISIS-II Operating System 
IAPX-432 Development System 
Digital Eouipment Corporation, Maynard, Massachusetts 
7AX 11/730 Minicomputer 
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7AI/VMS Operating System 
Interlan Corporation, Chelmsford, Massachusetts 
NI3010 Ethernet Controller Board 
Xerox Corporation, Stamford, Connecticut 
Ethernet Local Area Metwork 

E. BACKGROUND 

The connection of heterogeneous computer systems via 
some form of network, to perform various data processing 
tasks where data or resource sharing is important, is an 
extremely active topic for both hardware and software 
designers . 

The International Standards Organization Open System 
Interconnection (ISO OSI) architectural reference model 
provides the general framework in which computer network 
systems are designed to operate. This seven-layered, 
hierarchical description of functions was developed to 
provide a vehicle for the later development of a set of 
specific network protocols. The hierarchical nature of this 
model compares favorably with the techniques of hier- 
archical, structured design of software that are being 
taught and implemented today. The logical conclusion of the 
above comparison is to use the functionally layered frame- 
work provided by the ISO OSI model as a guide for deciding 
how to modularize the communication software necessary to 
allow host computers to be connected via a network. 
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C. PURPOSE 



The main purpose of this thesis is to construct a soft- 
ware interface to the CP/M-80 operating system so that files 
and messages can he transported between various host systems 
via a Local Area Network. The structuring of this software, 
to reflect the layers of the ISO model, allows modifications 
to the network software to be more easily made. 

This thesis presents a set of PL/I-eO and Intel 8060 
Assembly Language modules that, when linked together, allow 
INTELLEC ^DS users to communicate via an Ethernet Local Area 
Network. The complete set of software developed also 
includes two programs that can be used to troubleshoot or 
test the Ethernet hardware. The communication program 
allows INTELLEC MBS computers connected to the network to; 

1. Send messages or files to other hosts. 

2. Receive messages or files from other hosts. 

3. Become a terminal of the VAX 11/780. 

4. Command file transfers to or from the VAX. 

Additionally, the communication software will provide 

faster data transfers between host machines than the direct 
host-to-host serial communications methods currently used. 

This thesis is divided into four chapters. Chapter II 
discusses computer networks in general. The Ethernet is 
presented as a specific example of a Local Area Network. 

The Interlan hardware is also discussed as an implementation 



of the Ethernet. Chapter III deals with the details o: 
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II. COMPUTER NETWORKS 



A. DEFINITION 



Computer networks are defined to be collections of 
interconnected, autonomous computers. A computer network 
can also be a grouping in which the required processing 
functions are dispersed among several of the attached 
hosts. [Ref. 1: p. 2] 

Computer networks are classified by their length. 

Networks whose attached hosts are farther than a few kilo- 
meters apart are considered Long Haul, while shorter networks 
are considered Local Area. Networks are also classified by 
the nature of the hosts connected to them. Homogeneous 
networks consist of like hosts, while heterogeneous networks 
consist of dissimilar hosts. 



B. PURPOSE 

The main reason that the su 
has rapidly achieved prominence 
a workable solution to data pro 
sharing of data or other resour 
can also enhance the fault tole 
computational assets. Loss of 
Local Area networks, would not 
or the network itself. [Ref. 1; 
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Current trends seem to point to the merging of personal 
computers with Local Networking to form what one author calls 
"community microcomputing” [Ref. 2: p. 60]. This refers to 
the interconnection, via a Local Area Network, of a set of 
microcomputers that may, as a networked group, enhance the 
price/performance ratio for the using activity when 
compared to installing a single, large mainframe computer 
[Ref. 1; ?. 5] . 

C. THEORY 

The most generally accepted model of computer network 
architecture is the International Standards Organization 
Open Systems Interconnection Model (ISO OSI) model. This 
model is a set of hierarchical functions and protocols that 
are necessary to allow computers to communicate via a net- 
work. The seven layers and their definitions are listed 
below: [Ref. 1; pp. 15-21] 

1. Physical Layer - This layer provides the actual 
connection between hosts. It provides the bit 
stream transmission across the network medium. 

2. Data Link Layer - This layer performs error detection 
and correction, address recognition and flow control. 
This layer also provides data framing if necessary. 

3. Network Layer - The network layer provides logical 
channels between two endpoints in a network. This 
layer forms the data into packets for transmission. 

4. Transport Layer - The transport layer provides the 
network with single, group, or broadcast addressing 
modes and sets up virtual circuits between hosts. 

5. Session Layer - This layer contains the functions 
necessary to perform address conversion. This layer 
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6. 



initiates, binds, and terminates the dialogue between 
hosts. 



Presentation Layer - The presentation layer is mainly 
concerned with converting and transforming the data 
passed to a user. This layer also contains the file 
transfer and virtual protocols. 

7. Application Layer - The application layer, the highest 
in the model, is where the user interface to all the 
network services resides. The lower layers exist only 
to support this layer. 

Many computer networks with layered protocols exist, but 
their layers may not match the ISO model exactly because 
some of the ISC functions may not be necessary. The 
development of the model came about due to the need to 
standardize network description. The main factors that 
motivated the designers were; [Ref. 1; p. 15] 

1. To create a layer where abstraction was necessary. 

2. To give each layer a well defined function. 

3. To keep the information passed between layers to a 
mi nimum . 

4. To create only a minimum number of layers to decrease 
complexity . 

The above design principles are the same as the software 
engineering principles of abstraction and modularity. The 
hierarchical structure also compares favorably with the 
structured programming techniques of software design that 
are currently being advocated. [Ref. 4: pp. 38-60] 



The ISO OSI model is shown in Pigure 2.1. The main 
concepts of the model are; [Ref. 3; pp. 23-29] 



1 . 



Each layer only interacts with the vertically 
adjacent layers through well defined interfaces. 
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Changes to any layer can thus he accomplished without 
changing the other layers. 

2. Two basic protocols eiist ner layer. The first is the 
vertical protocol between layers. The second is the 
horizontal or peer protocol between transmitting and 
receiving layers of different hosts that allows' 
virtual communication to occur between those hosts. 
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Figure 2.1 ISO Reference Model 

The flow of data in the network model begins at the top 
layer of the sendins host. As the data is passed down the 
sending host's layers additional information, either bits or 
bytes, is added to the original data until the lowest layer 
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is reached. At the lowest layer, the data and added 
information is sent on the network medium. The receiving 
host then performs the reverse process on the received 
information hy passing it up the ISO layers until all 
that remains, after again reaching the top layer, is the 
original data. 

D. LOCAL AREA NETWORKS 

Computer networks, as previously mentioned, are 
classified as either Long Haul or Local Area. Local Area 
networks are characterized hy: [Ref. 1: p. 296] 

1. A length of no greater than a few kilometers. 

2. A data rate in excess of one million hits per second 
(1 Mbps) . 

3. Ownership hy a single organization. 

Two techniques of transmission medium access are being 
considered for standardization hy the Institute of 
Electrical and Electronic Engineers (IEEE). The proposed 
IEEE Standard 932 endorses both the token passing and 
carrier sense methods of Local Area Network medium access. 
Token passing consists of not allowing any host on the local 
network to transmit on the medium unless it has possession 
of a token that is passed in a predetermined order from one 
host to another. The carrier sense method allows each host 
eoual access to the network. This scheme allows each host 
to detect the occurrence of any other transmissions on the 
network and allows the host to wait until the medium is 
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clear before transmitting;. If two hosts try to transmit 
simultaneously, they will each detect the collision and wait 
an independent, random interval before attempting another 
transmission. Ethernet is an example of a carrier sense 
network. [Ref. 5: p. 31] 

E. ETHERNET 

Specific details of Ethernet Standard - Version 1.0 are: 
[Ref. 6: p. 1] 

1. A data rate of 10 Megabits per second (10Mbps). 

2. A maximum host separation of 2.5 kilometers. 

3. A transmission medium consisting of a shielded coaxial 
ca ble . 

4. A topology consisting of an unrooted tree. 

5. Link control via fully distributed peer protocol with 
statist! cal contention resolution. 

6. A message protocol of variable size frames. 

Additionally, it must be noted that the Ethernet 

Standard does not provide for either error correction, data 
encryption, or priority access to the network medium. At 
any point in time, only one transmission can occupy the 
medium. [Ref. 6: p. 5] 

One current implementation of an Ethernet network is the 
S-BUS system developed by E-Systems Incorporated. The E-3US 
Implementation differs from the Ethernet Standard in that 
it provides for transmitted frames to be acknowledged. The 
S-BUS also provides multiple coaxial cables to increase both 
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the effective bandwidth and the overall fault tolerance of 
the network. [Ref. 10: pp. 77-78] 
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III. NETWORK IMPLEMENTATION 



A. TOPOLOGY 

The Ethernet Local Area Network implemented at the 

Computer Science Department of the Naval Postgraduate School 

consists of three connected systems: 

1. The VAX 11/730 (VMS operating system) minicomputer. 

3. An INTELLEC MDS system (CP/M-80 operating system), 
with attached double density disk drives, that 
functions as the input/output processor for the Intel 
lAPX 432 32 bit microcomputer system. 

3. A second INTELLEC MDS system with attached single 
density disk drives. (Also CP/M-80) 

This thesis presents the software necessary to allow the 

above CP/M-80 based systems to communicate via the network. 

The software necessary to allow the VAX 11/780 the same 

communication capabilities was written by Lt. Thawip 

Netniyom [Ref . 9] . 

3. HARDWARE 

All the hardware needed to implement the above network 
was provided by the Interlan Corporation. The hardware 
needed to connect each INTELLEC system to the network was 
installed as follows: [Ref. 7: pp . 7-13] 
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3. The NT10 transceiver was Installed across the Ethernet 
coaxial cable and the cabling that connects the NT12 
to the NI3010 was connected as shown in Figure 3.2. 

The above mentioned hardware provides the ISO layer one 

and two functions. The Physical Layer functions provided by 

the transceivers and connecting cables are: [Ref. 7: p. 2] 

1. Support of a 10 ^ibps data rate. 

2. Bit stream generation through Manchester encoding. 

3. Media access control. 




Figure 3.1 NI3010 Switch and Jumper Locations 

The Data Link Layer functions provided by the NI3010 
board are; [Ref. 7: p. 2] 

1. Data encapsulation/decapsulation (framing). 

2. Address recognition. 

3. Transmit and receive data link management. 
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The NI3010 operates both as a slave to the host co^nputer 
and as a master processor when controlling the direct memory 
access (DMA) operations between the NI3010 buffers and the 
host computer's memory. The transmit function is command 
driven by the host, while the receive function is interrupt 
driven. Control of the MI3010 by the host is accomplished 
by programming the host to load commands, addresses, byte 
counts and interrupt enable values into registers onboard 
the NI3010. [Ref. 7: pp. 69-75] 




Figure 3.2 Ethernet Architecture and NI3010 Implementation 

A complete list of NI3010 commands is located in 
Appendix A. A table of the MI3010 registers can be found ir. 
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Appendix 3. After issuance of any command, the host must 
check for a value in the Command Status Register. The 
execution of the command only occurs after this read 
operation has been accomplished. The details of the read 
operation are as follows: [Ref. 7: pp. 70-72] 

1. The host issues a command. 

2. The host checks the Interrupt Status Register to 
check if the least significant hit is a one. If the 
least significant hit is a one, then the host reads 
the value in the cot^f^and Status Register. 

3. If the value in the Command Status Register is a zero 
then the command executed successfully. After the 
host has issued a Load, Transmit, and Send command, 

a value of one is also considered a success. Any 
other value represents a failure. A listing of 
Command Status Register values is located in Apuendix 
C. 

The Command Status Register must also he read at the 
beginning of any program written to control the NI3010. 

This register must he read at this time because the 'JI3010 
automatically performs it's built-in diagnostic routines 
each time the hoard is powered up or reset. The automatic 
testing places a value in the Command Status Register that 
must he read to clear the register before any other commands 
can he given to the NI3010. 

The MI3010 transmit function is accomplished in the 
following manner; [Ref. 7; p. S5] 

1. The host loads a block of memory in the format shown 
in Appendix D for each frame to he transmitted. 

2. The host loads the three NI3010 address registers with 
the first address of the host memory block. 
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3. The host then loads the two NI3010 byte count 
registers with the number of bytes in the data block. 

4. The host then enables a Transmit D.'iA Done (TDD) 
interrupt by writing a value of 6 Hei into the 
Interrupt Enable Register. 

5. The NI3010 interrupts the host once the memory block 
has been transferred into the NI3010 transmit buffer. 

6. The host then enables a Receive Block Available (R3A) 
interrupt by loading the Interrupt Enable Register 
with a value of 4 Hex. This step allows any pending 
received frames to be handled. 

7. The host then commands the NI3010 to send the frame 

by writing a value of 29 Hex into the Command Register 
and subsequently reading the Command Status Register 
as previously discussed. 

The NI3010 receive function is accomplished as shown 
below; [Ref. 7: p.90l 

1. The host enables an RBA interrupt as shown above. 

2. The NI3010, upon receiving a frame, interrupts the 
host to notify it of frame receipt. 

3. The host then writes a value of 0 Hex into the 
Interrupt Enable Register to disable any other 
NI3010 interrupts. 

4. The host writes values into the three NI3010 address 
registers to inform the NI3010 where, in host memory, 
to transfer the data. 

5. The host then loads the two NI3010 byte count 
registers. 

6. The host then enables the DMA transfer of the data by 
writing a value of 7 Hex into the Interrupt Enable 
Register. 

7. The MI3010 then interrupts the host upon completion 
of the transfer. The format of received data in the 
host memory is shown in Appendix E. 

The above steps are repeated for each received frame. 

The host is then responsible for whatever further operations 
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must be done with the data. For example, the data could be 
displayed on the console or written to a disk file. 

The NI3010 also has built-in test features and can also 
support the concepts of broadcast and multicast trans- 
mission. Broadcast transmission allows a host to transmit 
to all other hosts simultaneously, while multicast allows 
transmission to only a few selected hosts. 

C. SOFTWARE 

The software necessary to implement ISO layers three 
through seven was originally written entirely in 3080 
Assembly Language. The final version of the communication 
program consists of PL/I-80 modules that perform the 
functions of ISO layers six and seven and an Intel 3030 
Assembly Language module that performs the functions of ISO 
layers two and three. The ISO layer two functions performed 
by the software supplement the functions of this layer 
performed by the NI3010. The primary goals of the software 
were : 

1. To allow users to run, if necessary, test programs 
that will verify the functioning of the hardware. 

2. To allow the INTFLLEC systems to communicate via the 
Ehternet to any other hosts connected to the network. 

1 t Programs 

The basic software design process began by first 
determining the major functional divisions or modules into 
which a program should be divided. A primary consideration. 
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since Implementation usins; the NI3010 is interrupt 
dependent, was a simple interrupt handling: routine. This 
routine was the basis of the first wording test pro,?ram, 
5THTSSTA. The interrupt handling module is the basis around 
which all the succeeding programs were written. ETHTSSTA, 
an 6060 Assembly Language program, commands the NI3010 to 
perform built-in tests, one of which sends test data to 
the NI3010 Transmit buffer and back through the NI3010 
Eeceive Data Register. This process is called the NI3010 
Module Interface Loopback mode. Use of this test mode does 
not permit the interrupt handling to be done in the same 
manner as a normal communication program, nor does this mode 
allow data to be sent onto the network. The source code 
listing of ETHTESTA.ASM is located in Appendix F. 

A process of gradual enhancement was then applied to 
upgrade ETHTESTA into a program that utilized the complete 
interrupt capability as that of a functional communication 
program. The follow-on test program, STHTESTB, performs all 
the tests of ETHTESTA and, additionally, sends a small block 
of data to itself via the network using the NI3010 Internal 
Loopback mode. A source code listing of ETHTSSTB.ASM can be 
found in Appendix G. 

2. Communication Re tween Network Hosts 

The test programs discussed previously involved the 
utilization of only one INTELLEC system with Installed 
Ethernet hardware. The next logical step was to again 
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upgrade the software to allow the INTSLL2C systems to 
communicate via the network. 

In order to give hosts, especially of different 
architectures and operating systems, the ability to 
communicate via a network involves the development of 
higher level protocols to handle any differences that may 
arise due to the above factors. Specifically, differences 
between hosts related to file storage and frame transmission 
speed are the kind of issues that must be handled by the use 
of protocols. In an Ethernet network, the nature of each 
frame sent onto the network must also be encoded so that 
the receiving host can determine what further operations 
must be performed on the received frame data. 

The primary operating system file storage mismatch 
in this network implementation occurred between the V.^X/VMS 
and the CP/M-S0 operating systems. The VAX stores text 
files as variable length records by text sentence. The 
VAX, also, does not explicitly store the carriage return and 
line feed characters in the record. On the other hand, the 
CP/SI-80 operating system stores all the characters, 
including the carriage return and line feed, in one long 
continuous file. This file storage i ncompa tab i li ty was 
resolved by adding format conversion routines to both the 
VAX and I'JTELLEC software to convert the data prior to 
transmission on the network. 
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A transTiiss ion versus reception speed mismatch was 
discovered in the early testing between the VAX and the 
INTELLEC systems. The VAX can send data much faster than 
the INTELLEC systems can receive it. The solution to this 
problem was to add a ”stop-and-wait” [Eef. 1: pp. 143-145] 
protocol to the ISC layer two functions already performed 
by the NI3013. This protocol was implemented in software 
and assures the sending host that the last frame sent was 
correctly received. This protocol also prevents a faster 
sender from inundating a slower receiver. 

The frame encoding protocol adopted for our network 
is as shown in Table 3.1. These codes are written into the 
two Type Eield bytes in the transmit data block as shown in 



Table 3.1 Type Field Protocol 



Type 
Byte 1 


Field ! 

! Byte 2 i 


Interpretation at Receiver 




00E 


Message frame 


00 


0F 


Last frame of terminal reply 


00 


FF 


Acknowledge frame 


0? 


00 


File transfer-first frame 


0F 


01 


File transfer-middle frame 


0F 


FF 


File transfer-last frame 


Appendix D. 


The receiving 


hosts interpret these two bytes 



once the data block is in their memory as shown in Appendix 
E, to determine what operations must be done to the data. 
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The other protocol adopted was to use fixed data 
block sizes per Ethernet frame. The choices available to 
the user are: 

1. 128 Bytes. (Must be used for all file transfers) 

2. 256 Bytes. 

3. 512 Bytes. 

4:. 1024: Bytes. 

5. 1500 Bytes. (Used in ViX terminal service mode) 

A set of programs, written exclusively in 8030 
Assembly Language, was first developed to send short, single 
sentence messages from one INTELLEC system to another using 
the above protocols. Next, the file transfer modules were 
developed and tested. Throughout the entire process, close 
attention was paid to maintaining software modularity that 
was analogous to the functional modularity of the ISO model. 
Software modules that compared directly to ISO layers were 
maintained as separate modules and, whenever possible, 
rewritten in ?L/l-90» a high level language . The final 
communication program consists of three PL/I-80 modules and 
one 8080 Assembly Language module. These modules were 
linked together, using LINX-80, into the final product. The 
final program, ETHERNET.COM, contains calling sequences that 
directly reflect the ISO CSI model structure as shown in 
Table 3.2. The source code for all modules can be found in 
Appendices H through E. Modules were not written for ISC 
layers four and five because these layers are primarily 
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concerned with Long Haul network functions that are unneeded 
by our network. Modules RECEIVE, SENDFP/.M .EICFRAM ,T?.MSG and 
AWAIT are contained in the assembly language module because 
the functions they are reouired to perform are more 
efficiently programmed in that language. The actual calling 
seauence for the transmit process occurs as follows: 

1. ETHERMET: Asks for user to select type of network 
service desired and calls SE'^DATA. 

2. SENDATA: Encodes the transmit type field for the user 
selected service and calls internal routines to control 
the transmission. This module calls SENDFRAM as each 
frame is ready for sending. 

3. SENDFRAM: This module sends each frame onto the network 
then calls AWAIT to wait for the acknowledge frame to 
arrive from the destination host. 



Table 3.2 Comparison of Program Modules and the ISO Model 



ISO 

LAYER 


I Transmit 

! File 1 Message 


! Receive 

'VAX Modes 1 File j Message 


7 


ETHERNET. PLI 


Same 


RECEIVE(ETHER2. ASM) 


6 


SENDATA. PL I 


Same 


HECDATA.PLI 


5 


Not Implemented 


Same 


Not Implemented 


4 


Not Implemented 


Same 


Not Implemented 


3 


SENDER AM(ETHEP2) 


Same 


RECFRAM(STHER2) 


2 


AWAIT( ETHER2)/Hdwe Same 


TRMSG(ETHER2)/Edwe 


1 


NT10 Hardware 


Same 


Same Same 



The calling seauence for the receive process is in 
the order shown below: 
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1. ETHERNET: The user selects the receive mode of network 
service and this module calls RECEIVE. 

2. RECEIVE: This module waits in a loop for the module 
RECERAM to receive a frame from the network. Once 
the receive data is placed in host memory hy RECERAM, 
a flag is set and RECEIVE calls RECEATA. 

3. RECDAT»: This module decodes the type field of the 
received frame and calls internal modules that 
handle each different type of received data and, as 
part of this process, calls TRMSO which send the 
acknowledge frame back to the source. 

The four major functions that the final program 
performs are: 

1. Transmission of files or messages to any other network 
hosts. 

2. Reception of files or messages from any other hosts. 

3. The ability to become a terminal of the VAX 11/790 
via the Etherne t . 

4. The ability to send specially coded messages to the 
VAX to command it to either upload or download files. 



D. OPERATION 

The operation of test programs, ETHTESTA and ETHTEST3, 
consists primarily of invoking either program using normal 
CP/M-30 procedures and following the directions presented by 
the program. Detailed instructions for use of the test 
programs can be found in Appendix L. 

Operation of the communication program, ETHERNET, also 
involves invoking the program using normal CP/M-S0 
procedures and following the menus presented by the program. 
Detailed operating instructions for the use of the final 
communication program are located in Appendix M. 
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S. PERFOHMANCE 



The communication program provides faster data transfer 
between network hosts than currently employed methods. 

Table 3.3 demonstrates the improved performance realized 
in transferring data between single and double density 
INTELLFC systems. 

TASLS 3.3 Performance Comparison for Tata Transfers 



Between Singl 


e and Double 


Density 


INTELLEC 


Sys terns 


{Software Used 1 
!(CP/M-80) 1 


File Size 
(KBytes) ! 


Time 

( Mi n : Sec ) 


1 Data Ra 
1 Medium 


te(bps) i 

1 Effective! 


SDXEER 


136 


22:45 


9600 


797 


ETHERNET 


136 


3:30 


10M 


5180 



The data rate of the medium is the rate at which data is 
actually sent on whatever medium is being utilized. The 
effective data rate is the number of bits of useful data 
that was sent divided by the total elapsed time of the data 
transfer. Data transfers between INT3LLSC systems were not 
the only ones that showed a significant improvement over 
methods that were previously utilized. Transfers of data to 
and from the 7AX 11/7S0 were also accomplished significantly 
faster as shown in Table 3.4. 

The below presented data shows the improved performance 
of data transfers when the Ethernet network is employed. 
Lastly, a series of experiments was performed to investigate 
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the performance limits of data transmission and reception 
of the CP/M-30 based programs. The conditions of the 

Table 3.4 Performance Comparison of Transfers Between 
VAX 11/780 and INTELLEC Systems 



[Software Utilized 
KVAX to INTELLEC) 


[File Size 
! (KBytes) 


1 Time 
! (Min:Sec) 


{ Data 

'Medium 


Ra te ( bps ) ! 
[Effective I 


lAPX 432 Pkg 


136 


6 : 40 


9600 


2720 


ETHERMET 
(To disk file) 


136 


2:05 


10M 


S704 


ETHERNET 

(To memory buffer) 


136 


1 :35 


10M 


11452 



experiments were: 

1. The stop-and-wait protocol was not employed. 

2. The frames would be sent as fast as possible using the 
minimum amount of 8080 Assembly Language code. 

3. The receiver would not perform any extra operations on 
received data other than that done by the NI3010. Mo 
data was either written to any disk files or displayed 
on the console. 

4. Testing was done on data block sizes of 128 and 1500 
bytes per ETHEPNET frame. 

Testing was performed between two IMTSLLEC systems and 
and data was collected for both the above data block sizes. 
The results of the experiments are shown in Table 3.5. 

As shown below, the highest data rate achieved was 1.764 
Megabits per second. The time taken in each 6.8 millisecond 
period was accounted for as follows: 

1.2 msec Actual Data Transmission of 1500 Bytes 
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0.5 msec Instruction Execution to Restart Transmit 

3.5 msec DMA Operation of 1500 Bytes at 42S SBps rate 

1.6 msec Execution Time of MI3010 Send Command 



6.8 milliseconds total 



Table 3.5 Maximum Performance Data 



I'Data Bytes per Erame 

f 

1 


1 Frame Transmission j 


Data Rate 1 


i Interval 1 


(Effective) 1 


129 


2.7 Milliseconds 


379 Kbps 


1500 


6.8 Milliseconds 


1 .764 Mbps 



The conclusions reached about the Ethernet performance 



were ; 

1. The transmission speed is limited by the ‘JI3010 

controller itself. The Send command reauired 

lon,?er to execute than either the actual transmission 
time of the data or the instruction execution during 
each transmit cycle. 

2. Although the NI3010 literature claims a DMA data rate 
of 1 MBps, the board could only achieve a rate of 428 
KBps. This limitation could be due to the method in 
which the NI3010 onboard microprocessor is utilized. 
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IV. CONCLUSIONS 



This thesis has shown that functional Local Area Network 
cotimunicat ion software can he structured according to the 
ISO OSI network model. This thesis has also shown that 
the performance of the Ethernet substantially reduces the 
transfer time of data between connected hosts when compared 
to methods previously employed. The single to double 
density transfer rate improved by a factor of 7.5 while the 
VAX to INTELL5C transfer rate improved by a factor of 3.2. 
The data also shows that effective data rates can be 
improved by faster host processors, but that hosts will be 
limited by the rate at which the NI3C1? can transfer data 
to and from host memory and then send it. INT2LLEC hosts 
are also limited in actual network use by the rate at which 
data can written to or read from disk drives. 

An improvement to the effective data transmission rate 
might be realized by synchronizing the speed between sending 
and receiving hosts by some method other than the stop-and- 
wait protocol utilized in this thesis. The transmission 
rate performance degradation noted above is only aggravated 
by using the stop-and-wai t protocol. 

The software written for this thesis can be adapted to 
run on an Intel S0S6 based system by following the steps 
listed below: 
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1. The PL/I-90 source code files can he directly compiled 
using the PL/I-36 compiler. 

2. The 8080 Assembly Language source code can either be 
hand-translated or translated by software such as the 
program XLT-86 into 8086 Assembly Language source 
code. It should be noted that there are differences 
between the 8080 and 8086 processors that have to do 
with how interrupts are handled that will reauire some 
rewriting of the converted code. 
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APPENDIX A 



NI3010 COMMAND LISTINC 



Code ( Hex ) 


1 Command Function ! 


Returned Code(Hei) 


01 




Set Module Interface 
Loopback 


00 


02 




Set Internal Loopback 


30 


03 




Clear Loopback 


00 


04 




Set Promiscuous Mode 


00 


05 




Clear Promiscuous Mode 


00 


06 




Set Receive on Error 
Mode 


00 


07 




Clear Receive on Error 
Mode 


00 


08 




Co Offline 


00 


09 




Co Online 


00 


0A 




Hun Onboard Diagnostics 


Dia,snostic 'Codes as 
shown in Appendix C 


18 




Report/Reset Statistics 


00 


19 




Report Collision Delays 


00 


28 




Load Transmit Data 


30,05 


29 




Load/Transmit/Send Data 


00,01,03,05,06,08,03 


2A 




Load Croup Addresses 


00,05, 0A 


2B 




Delete Group Addresses 


00,05,0A 


3F 




Reset 


00 


Notes: 


Promiscuous Mode receives all 
Receive on Error receives even 


network traffic, 
bad frames. 



APPENDIX B 



NI3010 REGISTSP. LISTING 
Register ! Location 



C omnand 

Status ( Conmand ) 

Transmit Data 
Receive Data 
S tatus ( Int errupt ) 
Interrupt Enable 
Extended Bus Address 
High Bus Address 
Low Bus Address 
High Byte Count 
Low Bus Address 

Note; The base port address is 
the NI3010. 



Base Port Address 



Base 


Port 


Add ress + 


01H 


Base 


Port 


Address+ 


02H 


Base 


Per t 


Address+ 


03H 


Base 


Port 


Add ress^ 


05H 


Base 


Port 


Address + 


0SH 


Base 


Port 


Address^- 


09H 


Base 


Port 


Address-*- 


0AH 


Base 


Port 


Addre ss-t- 


03H 


Base 


Port 


Address-t- 


0C5 


Base 


Port 


Address-i- 


0DE 


se t OE 


i the 


DIP swit 


ch onboard 
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APPENDIX C 



NI3010 STATUS REGISTER CODES 



1. Normal Mode; 



Code (Hex ) 


1 Command Status Result 


00 


Success 


01 


Success with Retries 


02 


Illegal Command 


03 


Inappropriate Command 


04 


Failure 


05 


Buffer Too Large 


06 


Frame Too Small 


08 


Excessive Collisions 


0A 


Buffer Alignment Error 


2. Diagnostic Mode: 




Code(Hex) 


1 Returned Diagnostic Result 


00 


Succes s 


01 


NM10 Microprocessor Memory 
Checksum Error 


02 


NM10 DMA Error 


03 


Transmitter Error 


04 


Receiver Error 


05 


Loopback Failure 



40 



^PPSNDIX D 



TRANSMIT DATA FORMAT 



7 0 



BAR+ 


0 I 
1 . 


Destination ^.ddress A. 


(Byte 


1) 1 




1 

1 ! 

1 . 


Destination Address B. 


(Byte 


2) 1 


- 


I 

2 i 
1 


Dest. Addr. C. 


( Byte 


3) i 

1 


+ 


1 " 

3 1 

1 


Best. Addr. D. 


( Byte 


4) ! 

I 


+ 


1 

4 1 
1 


Dest. Addr. E. 


(Byte 


5) I 

1 


4- 


1 

5 1 

1 , 


Dest. Addr. F. 


(Byte 


6) 1 
1 


+ 


t 

6 ! 
1 


Type Field <7:0> 


(Byte 


1) 1 
1 




1 

7 ! 

1 . 


Type Field <15:B> 


(Byte 


2) i 
1 




s I 
\ 


Data-First Byte 




1 

1 

! 

1 




1 

\ 

I 

I 

1 

1 

I 

1 

1 

1 


• 

• 

• 

• 




I 

1 

\ 

1 

1 

1 

1 

1 


RAR+ECR- 


1 

-1 I 
1 
I 


Data-Last Byte 




» 

t 

I 

1 
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APPENDIX S 



RECEIVE DATA FORr^AT 



7 0 

BAR+ 0 
+ 1 
+ 2 
+ 3 
+4-9 
*10-15 
*16 
+ 17 
+ 18 



3AR+FRLTH-3 



3AP. + 3CR-1 ! i 

Note: Erane length is counted from first destination address 
byte up to and including the last C?.C byte consecutively. 



Frame Status 



Always 0 

Frame Length <7:0> 
Frame Length <15:8'> 



Destination Address( 6 Bytes) 
Source Address ( 6 Bytes) 

Type Field <7:0> 



Type Field <15:8> 
Data-First 3yte 



Data-Last Byte 



CRC <24:31> 



CRC <16:23> 



CRC <S:15> 



CRC <0:7> 
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APPENDIX P 



SOURCE CODS 0? PROGRAM STHTSSTA.ASM 



;Js Jp ###;}! jjt ^ >r ## 5r ## sit s;« ## Jit # JfJls sis Jit ## sit 5r sJf: >i< =>: sit Jje 5;t :!s * 5r 

jjc jjc :{c Jjcji: Jit j|( Jic jjt # j{: Jic Jit j{c Ji: jic Jit Jjc <t si: si: J(t :(:;{( 3(: jj: Jic sic jjc Jic :(c Ji: # :ie Jit si; Jic sic Jic 3$; jjc jj: :{c Ji: Ji: :;: si: ji: j{: j;: 



ETHERNET LEVEL ONE TEST PROGRAM — VERSION 1.13 



PROGRAM FILE NAME: STHTESTA.COM- INVOKE COMMAND: STHTSSTA 

PROGRAM EUNCTI0N:(RUN ON S090 BASED MDS STSTSM) 

COMMANDS THE NI3010 BOARD TO GO ONLI NE, PER70RM ITS' 
DIAGNOSTIC TESTS THEN TRANSFERS A 42 BYTE DATA BLOCK FROM 
ADDRESS 060S HEX TO ADDRESS 0812 HEX VIA TEE MODULE INTER- 
FACE LOOPBACK MODE. TRANSFERRED DATA IS THEN DISLPATSD ON 
TEE CONSOLE. THESE TESTS ONLY REQUIRE THE NI3010 BOARD. 

THE CABLE TO THE TRANSCEIVER NEED NOT BE CONNECTED. 

TESTS PERFORMED: 

1. ) ONBOA-D DIAGNOSTIC SELF TEST 

2. ) MODULE INTERFACE LOOPBACK TEST-VERIFIES THE 

FUNCTION OF THE NI3010 LESS THE RECEIVE 
BUFFER . 

NI3010 ETHERNET BOARD CONFIGURATION: 

1. ) JUMPER SET TO INTERRUPT LEVEL 5 

2. ) BASE PORT ADDRESS SWITCHES SET TO 

1011 (00B0H). 

3. ) PARALLEL PRIORITY TO AN ODD NUMBERED 

MULTIBUS SLOT. 

ORIGINAL PROGRAM: 03/10/33 
LAST REVISION: 04/30/83 
WRITER: MARK D. STOTZER 



ADVISOR: PROF. U.R. KODRES 



:(cjic5!cjie:i:;!cjic:{;j!cj!c:{:jicjic:;cj!ejicjltj{cjitjieji:jle:icj!cj!::!:jieji:##:^j*ej!cj!:j;::<t:ie:}:jlc:!c3!e^;i:j^ji:>icj!cjl:js:i:j;:j}:j:cj!:;{:j!::!cj;cjic 

jicji:3icjlc#ji:ji:#j(cji:j!;:{:ji;j!:jl:#j}::(e:{:jl::i:j}:j!c:i:;}:;ic#^;^jl:jitj!:jlcj:::s:;:ji:jl:jl:5!ej!tjsj'.c#ji:j!cji:ji::!::!:j!t.-itj::4:j!;jt;:!cs;cjie 



;MAIN PROGRAM: 

CRG 

; NI3010 REGISTER 
CREG EOU 

SREG ECU 

ISRSG EOU 



100H 

PORT ADDRESSES: 

0030H;CMD REG LOCATION 
00B1H;CMD 3T“TUS RSG LOCATION 
00B5H; INTERRUPT STATUS RSG 
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ISREG 

SBAR 

HBAH 

LEAR 

HBREG 

LBREG 



EOU 0038E; INTERRUPT ENABLE HE 

Eou 0039h;extended base ADDR 

EOU 00BAH;HIGH base add?. REG 

EOU 0033E;LCW rase ADDR REG 

EOU 00BCH;HIGH byte count REG 

EOU 00BDE;LOW byte count REG 



REG 



JOTHER NEEDED ADDRESSES: 

BDOS EOU 0005H;BDOS ENTRY POINT 

CSREG EOU 0700H,*COPY OP INTERRUPT ENABLE REG 

LASTM EOU 0900H;ADD? 0? INIT STACK PTR 

j sit# jJ: :!e :Je #### >)<»;« sit sit 5^ 

,* NEEDED BDOS COMMANDS: 

CONSIN EOU 01H;CONSOLE CHAR INPUT 

CONSOUT EOU 02H; CONSOLE CHAR OUTPUT 

PSTRING EOU 09E; PRINT TEXT STRING 



; CLEAR 



COMMAND 

IN 



STATUS 



R' 
SRSG 



fGISTER 3Y READING 









;load jump 



(INT 5) 
HEX 



INSTRUCTION EOR INTERRUPT HANDLER: 

MVI A,0C3H;JMP INST CODE 

STA 0028E ;L0AD IT IN ADDR 0028 

LX I H,INTHDL 

SHLD 0029H 

SoUTPUT INITIAL MESSAGE: 

D.BMSG 
C , PSTRING 
BDOS 
CRLP 
CONTROL: 

A ,012H 
0EDH 

A,0D7H; enable interrupt 5-STHERNST BOARD 
0ECH 

;L0AD TRANSMIT DATA BLOCK-FIRST 3 BYTES ASSIGNED BY XEROX: 



;SET UP 



LXI 

MVI 

CALL 

CALL 

INTERRUPT 

MVI 

OUT 

MVI 

OUT 

j|s^X'5!:#Sr 5 



;load r 

DSSTINP 



MVI 


A ,02H 


STA 


0^=00- 


MVI 


A,07H 


STA 


060 IH 


MVI 


A.01H 


STA 


0602H 


[LAN 


ASSIGNED LAST 


CALL 


CPLE 


LXI 


D,DMSG0 


MVI 


C .PSTPING 


CALL 


BDOS 


CALL 


CRLF 


LXI 


D .D'^SGl 



3 BYTES HERE; 
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DADDP.l 



DADDR2 



LOAD TYPE 



MYI 


C .PSTRING 




CALL 


BDOS 




CALL 


CRLF 




LXI 


D,DMSG2 




MV I 


C .PSTRING 




CALL 


EBOS 




CALL 


CRLF 




MVI 


c ,consin;ready 


FOR CHOIC 


CALL 


3DCS 




CPI 


31H 




JZ 


DADDR2 




CPI 


32H 




JZ 


DADDRl 




CALL 


CRLF 




LXI 


D,DMSG3 




MV I 


C .PSTPING 




CALL 


BDOS 




CALL 


CRLF 




JMP 


D2STINP 




CALL 


CRLF ;IF ADDR 


00-03-2A S 


MV I 


A,00H 




STA 


e603H 




MVI 


A.03H 




STA 


0604H 




MVI 


A,0EAH 




STA 


0605H 




JMP 


ADDIN 




CALL 


CRLF ;IF ADDR 


00-04-0A S 


MVI 


A,00E 




STA 


0ee3H 




MVI 


A .04ff 




STA ’ 


0604H 




MVI 


A.0AH 




STA 


0605H 





S2LECT2D LOAD IT 



S2L2CT2D LOAD IT 



ADDIN M.VI A.00H 

ST A 0606H 

MV I A.00P 

STA 0607H 

;N0T2;F0H this T2ST TH2 ACTUAL DATA IS IN ADDR2SS2S 

;0603-0632HEX FOR TRANSMISSION 

;R2AD in the TEST DATA: 

MVI C,PSTRIN5 

LXI D.FMSO 

CALL 3D0S 

CALL CRLF 



;CtO ONLINE 



CALL CONIN 

CALL CRLF 

UPON POWER UP: 
LXI SP.LASTM 







ti ■ fc ' J 




MMH 











El 






MVI 


a,09h;cmd to go 


ONLINE 


OUT 


CREG 




LXI 


D.OLMSG 




MVI 


C .PSTRING 




CALL 


BDOS 




CALL 


CRLE 




CALL 


READ 




;run onboard diagnostics test: 




MVI 


A.0AH; CODS FOR 


SELF T 


OUT 


CPEG 




LXI 


D.STMSG 




MVI 


C .PSTRING 




CALL 


BDOS 




CALL 


CRLF 




CALL 


READ 




;RUN MODULE I NTS 


RFACE LOOPBACK TEST 


; 


MVI 


A.09P; GO BACK ONLINE 


OUT 


CREG 




LXI 


D .OL^SG 




MVI 


C, PSTRING 




CALL 


BDOS 




CALL 


CRLF 




CALL 


READ 




;L0AD INTERRUPT 


ENABLE REG IS TER =4. 


SET TO 



RECEIVE DATA, 



DI 

LX I H.CEREC 

MVI A. 04:1 

MOV M.A 

OUT I SR EG 

SI 

;EUf^ COMPLETE MODULE LOO? TEST: 

MVI A,01H; enter module loop test mods 

OUT CPEG 

LXI D.MLMSG 

MVI C.PSTRING 

CALL EDOS 

CALL CRLE 

CALL RE4D 

CALL TRMSG; TRANSMIT TEST DATA BLOCK 

LXI D.TRCMSG 

MVI C.PSTRING 

CALL EDOS 

CALL CRLE 

CALL READ 



; TVS'" ONLY-MODULE LOOPBACK sit 

; THIS PATCH ENABLES DATA TRANSEER TO HOST* MEMORY IN TEST 



DI 

MVI A.07H 

LXI H.CEREG 

MOV M,A 
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IER5G 



OUT 
El 



MVI 


A,03H;CLEAR loop TEST MODS 


OUT 


CREG 


LX I 


D.CLMSG 


MVI 


C .PSTRING 


CALL 


BDOS 


CALL 


CRLF 


CALL 


READ 


;go back on-line 




MVI 


A,09H 


OUT 


CREG 


LXI 


D.OLMSG 


MVI 


C .PSTRING 


CALL 


BDOS 


CALL 


CRLF 


CALL 


READ 


; DISPLAY DATA TRANSFERRED VIA ETHERNET BOARD TO CRT: 


MVI 


C .PSTRING 


LXI 


D.LMSG 


CALL 


BDOS 


CALL 


CRLF 


CALL 


CONOUT 


JMP 


0 ;RETURN to OPERATING SYSTEM 


; END OF MAIN PROG 


RAM 




3 ;; :4c :4c :4c ^ ^ ^ :jc 


; TRANSMIT SUBROUTINE: 


TRMSG DI 




;loop until interrupt enable register =0 OR 4: 


LOOP LXI 


H.CEREG ; CHECK IF NI3010 BUSY 


MOV 


A.M 


CPI 


00H 


JZ 


CONT 


CPI 


04E 


JZ 


CONT 


SI 




JMP 


LOO? 


CONT DI 


;disable ints- and check again 


LXI 


H.CEREG 


MOV 


A.M 


CPI 


00H 


JZ 


CONTI 


CPI 


04H 


JZ 


CONTI 


SI 




JMP 


LOO? 


CONTI MVI 


A ,00H 


LXI 


H.CEFSG; DISABLE THE NI3010 INTERRUPTS 


MOV 


M , A 
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OUT 


IEREG; SET INTERRUPT ENABLE REG = 0 




El 




ADDRl 


EOU 


00H; LOCATION OF TRANSMIT DATA START= 


ADDR2 


EOU 


06H; 600 HEX 


ADDP3 


EOU 


00H 




MVI 


A.ADDRi; LOAD TRANSMIT MESSAGE 1ST ADDH 




CUT 


SEAR 




HVI 


A ,ADDF2 




OUT 


HEAR 




MVI 


A ,ADDR3 




OUT 


LEAR 




MVI 


a.00h;load byte count 




OUT 


HE REG 




MVI 


A.032H 




OUT 


LEREG 




DI 






MVI 


A,06H; enable NI3010 TDD INTERRUPT 




LXI 


H.CEREG 




MOV 


m.a 




CUT 


IEREG 




El 




DONE 


MOV 


a,m; read the copy of iereg=ceheg 




CPI 


06H 




JZ 


done 


TEST3 


MVI 


A.029E; load transmit 4ND SEND COMMAND 




OUT 


CREG 




RET 




;end T 


RANSMIT SU3RCUTINE 




^ 3i?3^CS}C3}!55^^J^;X^5JS3^53^^5{S5^C^3^!3^3^C3^J^5t^5}C5{t5{S3^3{'5J5 3J£5[^’5^J('5^C?}C2^C^^5}CsJ%5^%^J^2}t54C^^C5{^5{s: 


;read 


STATUS SUBROUTINE: 


READ 


MVI 


B.llllllieE 




MVI 


C ,00H 


RDLP 


IN 


ISREG 




ORA 


3 




CPI 


00FFH 




JNZ 


RDLP; CONTINUE LOOP UNTIL STATUS REG RE 




IN 


SREG 




CMP 


C 




JNZ 


EFMSG 




LXI 


D.MSG 




MVI 


C,09H 




CALL 


EDOS 




CALL 


CP.LF 




JMP 


RDONE 


EFf^Sa 


LXI 


D ,NMSG 




MVI 


C,09H 




JMP 


EDOS 




CALL 


CRLF 


RDONS 


RET 




;SND R 


EAD SUBROU 


TINE: 






^ 5}C TJC ^ 5|C ^ 5jS 5jt 5,i ^ j}c ^ 7,' 7^ 7^ 7,i 5{X 7j* TJS 7,» 7{S 7}C TjC tJz 7(S tJx 7{? 7}c 
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; INTERRUPT HANDLER: 




;SAVE CPU 


STATE: 




INTHDL 


El 






PUSH 


PSW 




PUSH 


E 




PUSH 






PUSH 

DI 


H 




LXI 


H, CERES 




f^CV 


5,M; save enable resister COPY VALUE 






A . 00H 




LXI 


H, CERES; disable NI3010 INTS. 




OUT 


lERES 




MOV 


M. A 




MOV 


A.B 




MVI 


B.34H; IS RBA INTERRUPT ENABLED? 




CMP 


B 




JZ 


RBA 




MVI 


B,0'?H; is RDD INTERRUPT ENABLED? 




CMP 


B 




JZ 


RDD 




MVI 


A.04H; IE NEITHER OF ABOVE THEN WAS TDD 




LXI 


H, ceres; enable RBA INTERRUPT 




MOV 


M, A 




OUT 


lERES 




JMP 


FINI 


RADDl 


ECU 


00H; 1ST ADDR TO WRITE RECVD FRAME TO= 


FADD2 


ECU 


09H; 0800 HEX 


RADD3 


ECU 


00H 


RBA 


MVI 


A, RADDl ; LOAD THE ADDRESS RES I STEPS 




OUT 


EB A? 




MVI 


A.RADD2 




OUT 


HEAR 




MVI 


A.RADD3 




OUT 


lbar 




MVI 


A.00H; NOW LOAD BYTE COUNT RESISTERS 




OUT 


HBRES 




MVI 


A ,040H 




OUT 


LB RES 




LXI 


H .CERES 




MVI 


A.07H; ENABLE RDD INTERRUPT 




MOV 


M. A 




CUT 


lERES 




JMP 


FINI 


RDD 


LXI 


H, CERES 




MVI 


A.04H 


;?.ECEIVE 


PROCESS 


KE UP IN HERE 




MOV 


M.A 




OUT 


lERES 


?INI 


El 




; RES TORE 


CPU STATE: 
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POP 


E 




POP 


D 




POP 


3 




DI 






MVI 


A,020H; restore interrupt STATUS 




OUT 


0EDE 




POP 


PSW 




El 






RET 




;end interrupt eanple? 


J 3^3(S5jS?J15(?55C2j5 5jS5}C 




3}s ;^s ^ 5?c a;s 3{c -s 5j: aj: :*c sjc :{c ^ 3js ^ ;;c a;: -s :^c :|s ^ alt 3{s s;i: ^ -s a|s ^ 


CRLF 


MVI 


C.CONSOUT; generates carriage RTN +LINS 




MVI 


E,0DH 




CALL 


3D0S 




MVI 


C.CONSOUT 




MVI 


E.0AH 




CALL 

RET 


PDOS 


• «,’* »1* «Ap JU oA* -J' 

1 nr T* "V* *Y* "r -«*• 


•r* nr *»*• -n** ^ "r 


* :(t s;: # jJ: 5r :(« iS 5): s!< j!« <t 3H :(£ :jj Xt sis :? :<« # sjt :!s # sit 5): # 5is # J? :!s :<t # :;t # 5|e j;£ 5? 


CCNIN 


LX I 


H.0608H; READ TEST DATA INPUT FROM CONSO 


INLP 


MVI 


C. CONS IN 




PUSE 


E 




CALL 


PDOS 




POP 


H 




MOV 


M. A 




CPI 


60E; COMPARE TO GRAVE ACCENT 




RZ 






INX 


H 




JMP 


INL? 


• :fr::4;:*s3jc^a;s3;s:*s:(s3{c:;s:{c:<c:Cc:Js5;s 


sis ;{5 S)6 Xs :<S s}: ;{5 :{e s)c j? # sis <s >!6 # sjs :S :<c s;t sjs JS :? # # # sis # Jit sis Sit sjt Sit sic Jit si; sis si: sit sis Jj: xt -c 


CONOUT 


LXI 


H.0S12H; OUTPUT TEST DATA TO THE CONSOLE 


OTLP 


MVI 


C.CONSOUT 




MOV 


E.M 




MOV 


A.E 




CPI 


60H;IE grave ACCENT THEN RETURN 




RZ 

PUSH 


H 




CALL 

POP 


PDOS 

n 




INX 


n 

1. 




JM? 


OTLP 


• 3{s:}:5:c:<c^:{c:;c3jsa;c:0c:;s5j::;c:?c3;s5;s 


St: X« sit sit sis Jit s|t sis X: # s? sK si: xt sit sit Xt Xs sit sit si: Xt s(s sf: sjt Xt sis sit sf; Xs sit sic sit Xt sis 3{t Xt sit si: sf: St: s? 


3MS5 


D3 


'ETHERNET LEVEL ONE TEST PROGRAM: VERS' 




D3 


'ION: 1.13: 04 /30/S3-MD3$ ' 


OLf^SG 


DP 


'ONLINE COMMAND ISSUSDS' 


ST^ISG 


DB 


'SELE TEST COMMAND ISSUED$' 


MLMSG 


DB 


'MODULE LCCPPACH COMMAND ISSUSDS' 


CLMSG 


DB 


'CLE3R L00P3ACK COMMAND ISSUEDS' 


TRCf^SG 


DP 


'TR8NSMIT/SEND COMMAND ISSUEDS' 


MSG 


DP 


'COMMAND EXECUTED?' 


Nf^SG 


DB 


'COM^^aND EAILEDS' 
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FMSG 

ir^SG 

DMSG0 



D3 

13 

D3 

DB 

DB 

DB 

D3 

DB 

DB 

DB 



'2NTi3 T2XT(<1:2 CHAR MAX) FOR MODULE' 
'IMTERFACE L00?3ACX(42 CHAR MAX) 

' (END WITH A GRAVE ACCEN?=> 

'THE DATA TRANSFERRED VIA MODULE IMTE 
'FACE LOOPBACK IS:$' 

'ENTER ADDRESS OF INSTALLED N 1301 O' 

' BOARDS' 

'BOARD 00-04-0A :FNTER ’ 1 
'3CARD 00-03-EA .‘ENTER " 2 
'INCORRECT SELECTION-TRY AGAIN:$' 

:}! :jc :jc # 3jc Jjc Jjc # Sr # >!! # # tS * # sis ^ 5*5 Jit >r jp V * Jr! # i? 



)$' 

R' 



DMSGl 
DMSG2 
BMSG3 

END;ETHSRNET level one test program-version 1.13 
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A???NDIX G 



SOUPCE CODE OE PROOF ETHTEST3.ASM 



3^ S{C 3{t 3jc 5|C #yC 3^ 3j» j}S S{» 3{S 3^ 3^ SjC 5 J* Sj* jJC 
3;^:{C3{c5}:3;s:^c:^^3^:^C3}c3J:;{e3?;3?C3^: :|c s(« 5{c j|s 



5|c5;«:<S5;t3^5;c5ti5r 3?ssC2 5l2 5}2 ❖sJiJissJ: :??:{£ 5(s3;s 3^ 3{t3;«3}c:^c 3? 5'5 J,*! sjs 5;? a;i 

3^; 3?C 3j: 3{: 3jc 3{; 3^ 3}c 3*; 3^c 5ic 3{c 3{? a;: sjc s;s ajc 3}C s;c 3<;c 5JC 5{t 5}! 3}C 3CS 5? 3jc 5? 3JC 3j: 5,i 3? 3JC 3J: 



ETHERNET SECOND LEVEL TEST PROGRAM — VERSION 2.?4 



PROGRAM FILE NAME: ETHTESTB.COM- INVOKE COMMAND; ETHTESTB 



PROGRAM FUNCTION ; (RUN ON P080 BASED MDS SYSTEM) 

SELF TEST. IT THEN TRANSFERS A 42-BYTE BLOCK OF TEXT FROM A 
BLOCK OF MEMORY STARTING AT ADDRESS 0700 HEX TO ANOTHER 
BLOCK AT 0900 HEX IN TWO SEPARATE TESTS VIA THE N 13010 
BOARD. SUCCESSFUL COMPLETION OF THESE TESTS VERIFIES THE 
FUNCTIONING OF ALL THE HARDWARE NECESSARY TO COMMUNICATE 
WITH OTHER HOSTS ON THE NETWORK. 



TESTS PERFORMED: 

1. ) BOARD DIAGNOSTIC SELF TEST 

2. ) MODULE INTERFACE LOOPBACK-VERI FI ES THE 

FUNCTIONING 0? THE NI3010 BOARD INCLUDING THE 
NMIO PROTOCOL MODULE. 

3. ) EXTERNAL LOOPBACK-VERI FIES THE FUNCTIONING OF 

ABOVE AND THE FLAT C ABLE , TRA NSC E I VER AND 
NETWORK COAXIAL CABL”. 

NI3010 ETHERNET BOARD CONFIGURATION: 

1. ) JUMPER SET TO INTERRUPT LEVEL 5. 

2. ) BASE PORT «DDRESS SWITCHES SET TO 

1011 (00B0H). 

3. ) PARALLEL PRIORITY TO AN ODD NUMBERED 

‘MULTIBUS SLOT. 

ORIGINAL PROGRA^^; 03/31/83 
LAST REVISION: 04/30/83 
WRITER: MARK D. STOTZER 



ADVISOR: PROF. U.R. KOTRES 

# »c 3)c :(£ Jj: :{e :!s s;: « 5js Jjc ^ # 5|s 5jt s;: ^ # =1: # ’^= ’i' # 5f: « 5r »r 5}: *'l« i!' >!' 

:;{ :(e j;: V # j;e :je af: # 5 !s Xi Sr ❖*=!'** *** ^ stt ^ 5|- ^ =!«*** s!' ^ ^ 

MAIN PROGRAM; 

CRG 100H 

; NI3010 REGISTER PORT iDDRESSES: 
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CREG 


EOU 


SREG 


EOU 


ISRSG 


EOU 


lEREG 


EOU 


EBAR 


EOU 


H3AR 


ECU 


LBAR 


EOU 


H3REG 


EOU 


LBREG 


EOU 


J jjtsicsj;#:!! 


't* V 'I*’ -V ^ 'r 



3030^;CMD REG LOCATION 
30B1^;GMD status REG LOCATION 
00B5H; INTERRUPT STATUS REG 
00B8H;INTERRUPT enable REG 
00B9H; EXTENDED BASE ADDR REG 
00Bar;high base addr reg 
00bbf;low base addr heg 
00bch;high byte count reg 
00BDR;LOW byte count peg 



;OTHER NEEDED ADDRESSES: 

BDOS EOU 0005R;BDOS ENTRY POINT 

CEFEG EOU 0B00H;COPY OF INTERRUPT ENABLE REG 

STATUS EOU 0S01H;CO?Y OE CMD STATUS REG 

; NEEDED BDOS COMMANDS: 

PSTRING EOU 09H; PRINT STRING FUNCTION 

COMSIN EOU 01H; console CHAR INPUT FUNCTION 

CCNSOUT ECU 02H; CONSOLS CHAR OUTPUT FUNCTION 

• j;s 5|« ;;s 4£ 5^ 5^:;: 5|e jjc ?;£:;£ 5jrj;s:«: sis Jp 5): 

;RSAD CMD STATUS REG ON POWER UPrPEOUIRED FOP. INITIALIZATION 
IN SREG 



; OUTPUT INITIAL MESSAGE TO USER: 

LXI D.BMSG 

MVI C.PSTPING 

CALL BDOS 

CALL CPLE 

;LOAD JUMP INSTRUCTION FOR INTERRUPT HANDLER: (INT 5) 

MVI A,0C3H;JM? INST CODE 

ST A 002PF ;L0AD IT IN ADDR 0023 HEX 

LXI H,INTHDL 

SHLD 0029H 

j s!!:^::j£:!:5!:3!!:is;:E:!tj;si;:3ic:iss;:>;:sis5ic#:<£^t#5!t5lt3j6 5!s5is5)c5l:j}c#:!s#5!s5!t:)s#5!cs;ss!6j;s;jt4£S>:5!s>!6 3!s#sl5:;6 3)6S6:!s3iS5}::Js:?^5>!£:? 

.‘SET UP INTERRUPT CONTROL: (INT 5) 

MVI A,012H 

OUT 0FDH 

MVI A,0DEH; ENABLE INTERRUPT 5-ETHERNET BOARD 

OUT 0ECH 

j #:;s:i!#si£i!£:!s5p:i(cs(c^£3i!#:jss!£-j:i::<ss!ci!!J!cX5 5i::(s;!:5|t#:itJ!sj!5>)csicj:£;}:?,£:4c5is:p;i;#:;s^5;c5}!:<!sis5is^ss;£:(s:i£5|t^s:«;:!ss{5#>i5:i: 

JLOAD TRANSMIT DATi 3L0CI-FIRST 3 BYTES ASSIGNED BY XEROX: 
MVI A,02H 

STA 0700H 

MVI A,07H 

STA 0701H 

MVI A.01H 

STA 0702H 

ILOAD INTERLAN ASSIGNED LAST 3 BYTES HERE: 

DESTIN? CALL CRLE 

LXI D,D'-'SG0; ASK USER TO INPUT THIS ADDRESS 

MVI C, PSTRING 
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DADDRl 



DADDR2 



.'LOAD TYPE 
ADDIN 



; NOTE; FOR 



;PEAD IN TH 



CALL 


BEOS 


CALL 


CEL? 


LX I 


D.DMSGl 


l^VI 


C .PSTPING 


CALL 


3D0S 


CALL 


CRL7 


LX I 


D.DMSG2 


MV I 


C.PSTRING 


CALL 


EDOS 


CALL 


CF.LF 


MVI 


c , consin;read os 


CALL 


BDOS 


CPI 


31H 


JZ 


DADDR2 


CPI 


32H 


JZ 


DADDRl 


CALL 


CPLF 


LX I 


D.EMSG3 


MVI 


C .PSTRING 


CALL 


BDOS 


CALL 


CRLF 


JMP 


DESTINP 


CALL 


CRLF; ADDR 00-03- 


MVI 


A, 003 


ST A 


0703? 


MVI 


A.03H 


ST A 


0704H 


MVI 


A.0EAE 


STA 


0705? 


JM? 


ADDIN 


CALL 


CPLF: ADDRESS 00 


MVI 


A. 00? 


STA 


0703? 


MVI 


A , 04H 


STA 


0704? 


MVI 


A.0 AH 


STA 


0705? 


FI ELD - 


2 BYTES: 


MVI 


A ,00H 


STA 


0606H 


MVI 


A, 00? 


STA 


0607? 


'HIS TE 


ST THE ACTUAL DATA 


:EX FOR 


TRANSMISSION 


I sic sic sis ' 


S^s 5{C 5{c s;c sj: s{c s^c s;c 3^ sjc :{c sj? 3*S 5{C 


:S TEST 


DATA FOR MODULE I 


MVI 


C ,?STRING 


LXI 


D.FMSG 


CALL 


BDOS 


CALL 


CRLF 


CALL 


CCNIN 



INPUT OF ADDRESS 



SELECTED 3Y USSR: LOAD 



SELECTED :LOAD IT 



IS IN ADDRESSES 



LOOPBACK TEST; 



5A 



CALL CRLP 

;G0 OMLINE upon POWEP UP: 

SI 

MVI A,09R;CMD to uo online 
OUT CPSG 

CALL READ 

;rcn onboard diagnostics TSST: 

KVI A,0AH; cods sor self test command 

OUT CFEG 

CALL READ 

;RUN module interface loopback TEST: 

MVI A,09H; go back online 

OUT CRSG 

CALL READ 

;L0AD interrupt enable REGISTER=4. SET TO RECEIVE DATA. 

DI 

LXI H.CEREG 

MVI A,04H 

MOV M.A 

OUT lEREG 

El 

; COMMAND MODULE INTERFACE LOOPBACK MODE: 

MVI A,02H 

OUT CFEG 

CALL READ 

; TRANSFER THE TEST DATA: 

CALL TRMSG 

CALL READ 

; DISPLAY DATA TRANSFERRED BY MODULE INTERFACE LOOPBACK TSST: 
MVI C.PSTRING 

LXI D.LMSG 

CALL 3DOS 

CALL C?.L^ 

CALL CCNCUT; text output to the CONSOLE 
CALL CRL7 

;PERFORM INTERNAL LOOPBACK TEST: 

;READ in TSST DATA FOR EXTERNAL LOOPBACK TEST: 

MVI C.PSTRING 

LXI D.FEMSG 

CALL BDOS 

CALL CRLE 

CALL CONIN 

CALL C^LE 

;SXIT INTERNAl"lOOp"tEST MODE: 

MVI A.03H 

OUT CFEG 

CALL READ 

;G0 back ONLINE: 



c.:; 



THMSG 

;loop 

LOO? 



CCMT 



CONTI 





A,09H 


OUT 


CREG 


CALL 


READ 


'H? TEST 


DATA: 


CALL 


TRMSG 


CALL 


READ 


.TA TRANSFERRED VI 


MV I 


C ,?STRING 


LXI 


D,LEMSG 


CALL 


Bros 


CALL 


CRLF 


CALL 


CCNOUT 


CALL 


CRLF 


JM? 


0 IRET’ 


IN PRCG 




^ 3{s :i: jJ: 5^ :ijs 3|c 3|s : 


t %v * 

► #Y^ rp ^1% ^1% ^4% ♦'1^ . 


SU3R0UT 


INS: 


DI 




INTERRUPT EMA3LE 


LXI 


H.CSREG 


MOV 




CPI 


00H 


JZ 


CONT 


CPI 


04H 


JZ 


CONT 


SI 




JM? 


LOO? 


DI 




LXI 


H.CEREG 


MOV 


A ,M 


CPI 


00? 


JZ 


CONTI 


CPI 


04? 


JZ 


CONTI 


El 




JM? 


LOO? 


MV I 


1 .00? 


LXI 


H.CEREG 


MOV 


M.A 


OUT 


iireg: se 


El 




ECU 


00? ; LOCA 


SOU 


07? 


SOU 


00? 


MV I 


A, A DDR i; 


CUT 


SB *?. 


^VI 


A . AD DR 2 


OUT 


HBAR 


MV I 


A .ADDR3 


CUT 


L 3 - R 
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AELRl 

ADDS2 

ADDH3 



DONZ 



JST3 



MV I 

OUT 

MV I 

OUT 

DI 

MV I 

LX I 

MOV 

CUT 

El 

LXI 

MOV 

CPI 

JZ 

M7I 

OUT 

RET 



A,90H;L0AD byte count 
HBREG 
A ,032H 
L3REG 

A,06E; enable TDD INTERRUPT 

H.CEREG 

M, A 

lEREG 

H,CEREG 

a,m; read the copy op iereg=cereg 

06H 

DONE 

4,029H; load transmit and send CCMMAN] 

CREG 



;SND transmit subroutine 



IREAD status SUBROUTINE: 
READ 

RDLP 



ERMSG 



MVI 


B,llllllli 


MVI 


C.00H 


IN 


IS REG 


ORA 


5 


CPI 


00EEH 


JNZ 


rdl?;cont: 


IN 


SREG 


LXI 


H, STATUS ; 


MOV 


M,A 


CMP 


r> 


JNZ 


EPMSG 


LXI 


D.MSG 


MVI 


C.PSTRING 


CALL 


BDOS 


CALL 


crle 


JMP 


EDO ME 


LXI 


D.NMSG 


MVI 


C ,?STRING 


CALL 


BDOS 


MVI 


B.050H 


LXI 


H, STATUS 


MOV 


A , M 


ADD 


3 


MVI 


C .CONS OUT 


MOV 


E. A 


CALL 


BDOS 


CALL 


CRLE 


LXI 


D.NMSGl 


MVI 


C . PSTRING 


CALL 


BDOS 


CALL 


CRLE 



INUS LOOP UNTIL STAT REG READY 
XEE? COPY OE CMD STAT REG 



CODE 



CONSOLE 
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RDCNS 


RET 




;SND READ 


SUBROUTINE: 


j ^V' "T* 'in nn •IP 'P •p •p •p np •p 'P np 




; INTERRUPT 


HANDL 


ER: 


;SAVE CPU 


STATE: 




INTHDL 


El 






PUSH 


PSW 




PUSH 


B 




PUSH 


D 




PUSH 

DI 


H 




LX I 


H, CEREO 




MOV 


B,m; save enable register copy value 




MV I 


a,0oh; disable N 13010 interrupts 




LXI 


H ,CE -EG 




MOV 


M a 
* » •• 




CUT 


lEREG 




MOV 


A. 3 




MV I 


B,04H; was rba interrupt enabled? 




CMP 


3 




JZ 


RBA 




MV I 


B,07H; W4S HDD INTERRUPT ENABLED? 




CMP 


B 




JZ 


HDD 




MV I 


&.04H; IE NEITHER OF THE ABOVE THEN 




LXI 


h.cereg; was tdd- ncw enable rba again 




MOV 


M,A 




OUT 


lEREG 




JMP 


FINI 


RADBl 


ECU 


?0H; location 0 ^ where to write recvd 


RADD2 


ECU 


09H; VPaf^v data in HOST MEMORY 


RADD3 


ECU 


00E 


REA 


MV I 


A.RADDi; NOW LOAD ADDR INTO ADD?. REGS. 




OUT 


E3.AR 




MV I 


.A,RiDD2 




CUT 


EBA? 




MVI 


A , RADD3 




OUT 


L3A’’ 




MVI 


A,00H; LOAD BYTE COUNT REGISTERS 




OUT 


HBRFG 




MVI 


A ,040H 




OUT 


LB REG 




LXI 


H.CEREG 




MVI 


A.07H; ENABLE RDD INTERRUPT 




MOV 


M, A 




CUT 


ISRSG 




JMP 


FINI 


RED 


LXI 


H,CFREG 




MVI 


A , 34H 


;recsive ? 


HO CSS 3 


WAKE UP IN HERE 




MOV 


M, A 
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OUT 


ISREG 


FINI 


El 




; RESTORE 


CPU STATE 


; 




POP 


H 




POP 


D 




POP 


B 




DI 






MV I 


A.027H; RESTORE INTERRUPT STATUS 




OUT 


0FDE 




POP 


PSW 




El 






RET 




;SNC interrupt HANELER 




sj: :{s ate ^ :j: :*s 3jc a{s ^ :}c 5): ?{t :<c 3^t j;< :;c :<e :<s a;c ;Je :^s :^e a|c a^c 3*: -e :<s 3^s sli ?|s ;;s ^ : 


CPLE 


MV I 


C.CONSOUT; GENERATES CARRIAGE RTN +LFEE: 




MV I 


E.ODH 




CALL 


BDOS 




MV I 


C .CONSCUT 




MV I 


E,0AH 




CALL 


BDOS 




RET 




• 4.V «JU «A« ariir mX» »V ' 


kU WU ^ ^lU wu 

^1% #1^ #1% r^« 


4: 9<: :j: # :4c s;: :4c >;e X: ^ it: ^ ^ 9i: « Xc ^ ^ ^ 3ic ^ ’Sc « ^ ^ : 


CONIN 


LX I 


H.0708H; READ TEST DATA INPUT FROM CONS 


INL? 


MV I 


C.CONSIN 




POSH 


n 




CALL 


BDOS 




POP 


H 




MOV 


M. A 




CPI 


60H;IF grave accent then return 




R2 






INX 


p 




JMP 


INL? 




:4c at: >{::$: 5j::4:a^5(tat:atea;:a}::{::4cat::ts3{s:(:at:ats:<sa{ca{«aj«:tcat:it:3tc3t::{ca{:a;cat:5,‘c5;5j{:3jcj|5 5;:5{ejr 


CONOUT 


LX I 


H.0912H; OUTPUT TEST DATA TO THE CONSOL 


CTL? 


MV I 


C .CONSOUT 




MOV 


E.M 




MOV 


A,E 




CPI 


50H;TEST for end char -grave accent 




P.Z 






PUSH 


H 




C»LL 


BDOS 




POP 


H 




INX 






JMP 


otlp 




:?;5!ss;s^?3{i5t:30c:{« ;{s5;t 


a}: at^ a}: a}: ate at: :4c at: ate ajc :(c :4eX: af: a^c ;(c a;e :4c ate :(e at: at: :4: St: :4e at: :{s a;: ate :4c a^: at: at: a;: a;: ate :tc 


B^'.SG 


DB 


'ETHERNET SECOND LEVEL TEST PROGRAM:' 




DB 


' VERSION 2.04: 04/30/83-MDS ^ ' 


DMSG0 


DB 


'ENTER ADDRESS OF INSTALLED NI3010 ' 




DB 


'BOi?D: ' 


EMSGl 


DB 


'BOARD 00-04-0.A : ENTER ” 1 "t' 


DM.SG2 


DB 


'BOARD 00-03-EA :ENTEH " 2 "i' 
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DMSG3 


D3 


MSG 


DB 


NMSG 


DB 


NMSGl 


D3 




DB 


FMSG 


DB 




DB 




DB 




DB 


FEMSG 


DB 




DB 




DB 




DB 


LMSG 


DB 




DB 


LSMSG 


DB 




DB 



'INCOPPTCT SELECTION NUMBER-TRY AOAI.N:$' 

'EXECUTING BOARD COMMAND $' 

'command EAILED-ERROR C0DE:$' 

'FOR INTERPRETATION OF ERROR CODES-SSS' 
'ASM LISTING FILS$' 

'ENTER TEXT (42 CHAR MAX) FOR MODULE' 

' INTERFACE LOOPBACK TEST; 

'(END STRING WITH A GRAVE ACCSNT=> ')$' 
'Enter text(42 char max) for internal' 

' loopback TEST; 

'(END STRING WITH A GRAVE ACCSNT=> ')$' 
'THE DATA TRANSFERRED BY MODULE' 

' INTERFACE LOOPBACK IS :i ' 

'THE DATA TRANSFERRED BY INTERNAL' 

' LOOPBACK IS:$' 



^ :js 5it # tS * sit # sis # ❖ >!< sjt * ’I' sf! * ^ V 5r sS sit s)* 4! ir * * 5)! 5^ 5}: Ji! # :}! :(t Xs # 



ERROR CODES; (IN RESPONSE 



TO TRANSMISSION COMMAND FAILURES): 



LETTER ! NATURE OF FAILURE 



S YOU ISSUED AN IN APPROPRI ATE COM 

MODE THE BOARD IS IN. 

T BOARD TIMER TIMED CUT-POSSIBLE 

PROBLEM. 

U TRANSMIT BUFFER SIZE EXCEEDED :( 

7 FRAME SENT TO BOARD TOO SmaLL;( 

X EXCESSIVE COLLISIONS 



3;s ^ 3^ ^ ^ 3^ ^ iic Xk ^ 3 ;$ 9^ 3}: 3^r 3^ ^ 3^ ^ ^ :4c ^ 3^ 

;|5 ijS 3?C 5tC Xs 3r Sj! 3^« 3jS 3}: S^C 3^ S;c 5t« >5^ 5}C SjS XS >r 



END;ETHERNET second level test PROGRAM-VERSION 2. 
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APPENDIX H 



SOURCE CODE OF MAIN MODULE ETHERNET. PLI 



ETHSRNST:/«MAIN MODULE-APPLICATION LAYER-ISO LEVEL 7*/ 
PROCEDURE OPTIONS (MAIN); 



declare 

/* LOCAL VARIABLES ’*'/ 

COUNT? FIXED PI NARY (7 ) , /’i'LOO? CONTROL VARIABLE'V 

C0UNT7A FIXED BINARY(7 ,/*LOO? CONTROL*/ 

COUNT7B FIXED BINARY (?), /*LOOP CONTROL*/ 

COUNT7C FIXED BINARY(7 ) , /*LCOP CONTROL*/ 

DSKNO CHARACTERd ) ,/*USER INPUT DISK NUMBER*/ 
FRAME CHARACTERd ) ,/*USER INPUT FRAME SIZE*/ 
SELECT CHARACTERd ),/*USER INPUT MODE SELECTION*/ 
/* GLOBAL VARIABLES */ 

RECFIL FIXED 3INARY(7) EXTERNAL ,/*RSCVD FILS NO.*/ 
FRSIZE FIXED BINARY(15) EXTERN AL , /*FRAME SIZE*/ 
VTERM FIXED BINARY (7) EXTERNAL , /^TERMINAL FLAG*/ 
TRMODE FIXED BINARY(7) EXTERNAL ,/*CMD MODE FLAG*/ 
/* GLOBAL DATA STRUCTURES */ 

TXBU?F(150S) FIXED BINARY (7) EXTERN AL , /*TRANS BUFF*/ 
RXBUFF(1522) FIXED BINARY (7) EXTERN AL ,/*RI^CV BUFF*/ 
TXT3UF (128) FIXED 3INARY(7) EXTERN AL , /*TEXT BUFF*/ 

1 RXFCB EXTERNAL, /^receive FILE CONTROL BLOCK*/ 

2 DISK FIXED BINARY(7), 

2 FNAME CEARACTEH(a) , 

2 FTYPE CHARACTER (3) , 

2 RFCB(24) FIXED BINARY(7), 

1 TXFC3 EXTERN AL,/*TRANSM IT FILE CONTROL BLOCK*/ 

2 DISK FIXED BINARY(7), 

2 FNAME CHARACTER(a), 

2 FTYPE CHARACTER(3) , 

2 TFCB(24) FIXED BINARY(7), 

/* EXTERNAL MODULES */ 

INIT ENTRY,/* INITIALIZES INTERRUPTS & NI3010*/ 

SSNDATA ENTRY,/* TRANSMIT ISO LEVEL 6 MODULE */ 
RECEIVE ENTRY;/* RECEIVE MODULE */ 

/*LAST REVISION: 09/15/93-0900 ORIGINAL PROGRAM ; 07/29/83 */ 
/*AUTHOR: CAPT. MARK D. STOTZER-USMC-AEGIS GROUP */ 

/*THESIS ADVISOR: PROFESSOR UNO R. KODRES-COMP. SCIENCE */ 

PUT SKI? LIST ( ' ) ; 
PUT SKIP LIST ( 'ETHERNET COMMUNICATION PROGRAM-VERSION 5.0'); 
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PUT SKIP LIST ('ALLOWS THIS HOST TO CONNECT TO TEE NET.'); 
PUT SKIP LIST( 'CNTL-H=3ACKSPACS FOR TEXT ENTRIES:'); 

PUT SKIP LIST ( ' ) 

PUT SKIP(2); 

RECEIL=47; 

COUNT7=l ; 

DO WHILE (CCUNT7=1); 

COUNT7A=i; 

DO WHILE(COUNT7A=l ) ; 

PUT SKIP(2); 

PUT SKIP LI ST ( '*******^*’*'** MAIN MENU ) 

PUT SKIP LIST( "WRITE RECEIVED FILES TO DISK NO:'); 

PUT SKI? LI ST ( 'DEFAULT DRIVE(A) = 1'); 

PUT SKIP LIST('DISK DRIVE A = 2'); 

PUT SKIP LIST('DISK DRIVE 5 = 3'); 

PUT SKIP LIST( ^ ) 
PUT SKIP LIST ('ENTER DRIVE NUM3ER==>'); 

GST LIST(DSKNO); 

PUT SKIP(2); 

IF DSKNO='l' THEN 

do; 

RXFCB.DISK=0;/* LOAD DISK NUMBER IN FCB */ 
C0DNT7A=2; 

end; 

ELSE 

IF DSKN0='2' THEN 

do; 

RXFCB.DISK=l;/* DISK NUMBER TO FCB */ 

C0UNT7A=2; 



end; 



ELSE 

IF DSKN0='3' THEN 

do; 

RXFCB .DISK=2;/=«' 
C0UNT7A=2; 



DISK NUMBER TO FCB 



*/ 



end; 

ELS E 

PUT SKIP LIST( 'INVALID DRIVE NUMBER-REENTER : ' ) 

snd;/*do loop=<=/ 

C0UNT7B=i; 

DO 'WHILE (C0UNT7B = 1); 

PUT SKI? LIST( 'ETHERNET FRAME 
LIST( 'SELECT 128 FOP 
LIST('AND VAX COMMUNICATIONS 
LIST( ' 128 BYTES 

LIST( ' 256 BYTES 

LIST(' 512 BYTES 
LIST( ' 1024 BYTES 

LIST( ' 1500 BYTES 



PUT 

POT 

PUT 

POT 

PUT 

PUT 

PUT 

POT 

PUT 



SKIP 

SSI? 

SKIP 

SKI? 

SKI? 

SKI? 

SKI? 

SKI? 

SKIP 



DATA BLOCK SIZE: '); 

ALL FILE OPERATIONS'); 

); 

1 '); 

2 '); 

3'); 

4'); 



= 5 ' ) ; 

LIST ( ' 

LIST ('ENTER SELECT ION==> ') ; 



) 
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GET LIST(FRAMD); 
PUT SKI?(2); 

IF FHAMD='l' THEN 

ro; 

FP,SIZE=128;/- 

C0UNT7B=2; 

END; 

ELSE 

IF FRAMD='2' THEN 



SET TEE FRAME SIZE */ 



DO * 

FRSIZE=256; /* SET FRAME SIZE -/ 



C0UNT73=2; 

end; 

ELSE 

IF FRAMD='3' THEN 

do; 

FRSIZE=512;/=*' SET FRAME SIZE */ 
CCUNT7B=2; 

end; 

ELSE 

IF FRAMD='4' THEN 

do; 

FRSIZE=1024:;/* SET THE FRAME SIZE 



•'/ 



C0UNT73=2; 

end; 

ELSE 

IF FRAMD='5' THEN 

do; 

FRSIZE=1500; /- SET FRAME SIZE 
C00NT7B=2; 

end; 

ELSE 

PUT SKI? LIST ( 'INCORRECT CEO I CS-RESNTER : ' ) ; 

end;/- do loop */ 

VTERM=0;/=«' RESET TERMINAL FLAG TO FALSE */ 
TPMODE=0;/« RESET COMMAND MODE FLAG TO FALSE -/ 
CALL init; 

PUT SKI? LIST ( 'OPERATING MODES:'); 

PUT SKIP L XST ( ; 



PUT SKI? LIST( 'RECEIVE WAIT LOOP = 1'); 
PUT SKI? LIST( 'TRANSMIT FILE OR MESSAGE= 2'); 
PUT SKIP LIST( 'VIRTUAL TERMINAL OF VAX = 3'); 
PUT SKIP LIST('VAX COMMAND MODE = 4'); 
PUT SKI? LIST ( 'DISCONNECT FROM NET = 5'); 



PUT SKI? I, I ST ( '**’*'’^-^****'^’*'’*'’^*’*‘**^’*‘^-’®'*'*‘^-^**’^’*'’*‘-^*^’'*’*‘^ ' ) ; 
PUT SKIP LIST ('ENTER SELECTION ==>'); 

GET LIST(SSLECT) ; 

PUT SKIP(2); 

IF SELECT='l' THEN /* RECEIVE MODS */ 

DO ; 

TXBUFFd )=2;/* LOAD FIRST TERSE DEST ADD?. BYTES -/ 
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TXBUFJ (2 )=?;/=<' FOR ACK REPLY IN RECEIVE MODE -/ 
TX3UFF(3)=i; 

PUT SKIP LIST('IN RECEIVE WAIT LOCP-TO RETURN TO'); 

PUT SKIP LIST{'MAIN MEND: ENTER <CR> ==>'); 

PUT SKIP ST ( » 

PUT SKIP(2); 

CALL receive; 
end; 

ELSE 

IF SELSCT='2' THEN /* NORMAL TRANSMIT V 
CALL TRANS 2 ; 

ELS E 

IF SELECT='3' THEN /=<' VAX TERMINAL MODE V 

do; 

VTERM=i;/* SET THE TERMINAL FLAG TO TRUE */ 

FRSIZE=1503; 

PUT SKIP LI ST( VAX TERMINAL MODE 

PUT SKIP(l); 

PUT SKIP LIST('VAX TERMINAL SERVICE:'); 

PUT SKIP LIST('DATA BLOCK SIZE PER FRAME='); 

PUT LIST(FRSIZE); 

PUT SKIP LIST( ^ — ' ) j 

PUT SKIP LIST( 'TERMINAL ENTRY BY LINE OF TEXT'); 

PUT SKIP LIST( 'BEGIN AFTER INITIAL V PROMPT: ”V>"'); 

PUT SKIP LIST( 'ENTER: TEXT LINE<CR>'); 

PUT SKIP LIST( 'PROMPT WILL AUTOMATICALLY REAPPEAR'); 

PUT SKIP LIST('UPON ENTRY OF THE FIRST CHARACTER'); 

PUT SKIP LIST('OF THE NEXT LINE YOU BEGIN.'); 

PUT SKIP LIST( ' ') ; 

PUT SKI? LIST{'TO END TERMINAL SESSION:'); 

PUT SKIP LIST( 'ENTER: ”.''<CR> AFTER "V>’'); 

PUT SKIP LIST( ' ' ) ; 

PUT SKIP(l) ; 

TXBUFF(1)=2; /* LOAD THE VAX NET ADDR INTO THE 3IX=«*/ 
TXB0FF(2)=7; ADDRESS BYTES «/ 

TXBUFF(3)=i; 

TX3UFF(4)=0; 

TX3UFF(5)=7; 

TX3UFF(6)=127; 

TXBUFF(7)=0;/- LOAD THE TYPE TWO TYPE FIELD BYTES */ 
TX3UFF(3 )=0; 

C0UNT7C=i; 

PUT SKIP LIST( 'V>'); 

DC WHILE (C0UNT7C=1); 

CALL S END AT a; 

PUT SKIP LIST( 'V>') ; 

IF VTERM=0 THEN /’^'END TERMINAL SESSION’!'/ 

Dc; 

PUT SKIP LIS T( END TERMINAL SESSION **’!'*') 
COUNT7C=2; 

end; 



64 



2LSE 



do; 



end; 

END; 

ELSE 

IF SELECT='4' 

do; 



CALL I nit; 

CALL receive; 

PUT LIST( '''h''h''hv>' ); 

end; 

/* DO LOOP 



PUT 


SKIP 


LIST 


PUT 


SKIP 


LIST 


PUT 


SKIP 


LIST 


PUT 


SKI? 


LIST 


PUT 


SKI? 


LIST 


PUT 


SKIP 


LIST 


PUT 


SKI? 


LIST 


PUT 


SKI? 


LIST 


PUT 


SKIP 


LIST 


PUT 


SKIP 


LIST 


PUT 


SKIP 


LIST 


PUT 


SKIP 


LIST 


PUT 


SKIP 


LIST 


PUT 


SKIP 


LIST 


PUT 


SKIP 


LIST 


PUT 


SKI? 


LIS? 


PUT 


SKIP 


LIST 


PUT 


SKIP 


LIST 


PUT 


SKIP( 


:i); 



THEN VAX COMMAND MODS */ 

VAX COMMAND INSTRUCTIONS 

LIST('TO DOWNLOAD A FILE FROM THE VAX:'); 
ENTER THE MESSAOE: '); 

" !FNAME(VAX].FTXPS( VAX)/XXX' 
nfHERS XXX = EXE FOR NON-TEXT FILS 
AND "XXX"="TXT" for TEXT FILES'); 
LIST( 'FILE WILL THEN 3E IMMEDIATELY SENT' 
TO THIS HOST. ') ; 



'); 

S'); 
); 
'); 

LI3T('TO UPLOAD A FILE TO THE VAX:'); 

) ENTER THE MESSAGE: ') ; 

0FNAMS(VAX) .FTYPE(VAX)/XXX' ’ ') ; 

OPEN A VAX FILE BY THE ABOVE NAME'); 
) THEN:'); 

ND THE FILE TO THE VAX ADDRESS US 
E NORMAL FILE SENDING SELECTIONS. 



TRMODE=i; /«SET 
FRSIZE=12S; 
TXBUFF(1)=2; 
TX3UFF(2)=7; 
TXBUFF(3)=i; 
TX3UFF(4:)=e; 
TXBUFF(5 )=7; 
TXBUFF(6)=127; 
TX3UFF(7)=0;/- 
TX3UFF(S)=0; 
CALL sendata; 



VAX CMD MODE FLAG TO TRUEV 

INTO THE SIX 



I NG ' ) 
'); 
'); 



/*LOAD THE VAX NET ADDR 
/=<‘ADDRESS BYTES */ 



V 



LOAD THE TWO TYPE FIELD BYTES -/ 



CALL init; 

RX3U?F(17)=255; 

CALL receive; 
end; 

ELSE 

IF SELECT='5' TEEN DISCONNECT BY EXITING TO CP/M <v/ 
C0UNT7=2; 

ELSE 

PUT SKI? LIST( 'INCORRECT OPMODE SELSCTION-REENTER : ' ) ; 
end; /=«“ DO LOO? */ 
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PUT SKIP LIST ( 'DISCONNECTING FROM NET-RETURNING TO CP/M.'); 
TRANS2: /* GETS USER INPUT OF FILE DATA */ 

procedure; 



DECLARE 



/* LOCAL VARIABLES 

COUNTS FIXED BINARY(7 ) , /=>= LOOP CONTROL*/ 

C0DNT6A FIXED BINARY (7),/* LOOP CONTROL*/ 

C0UNT6B FIXED BINARY {7 ), /*LOOP CONTROL*/ 

C0UNT6C FIXED BI NARY ( 7 ) , /*LOOP CONTROL*/ 

SENDTYPS CHARACTERd ) ,/*USER INPUT TRANSMIT TYPE*/ 
FTYP CEARACTER(l) ,/*USER INPUT FILETYPE*/ 

DRNO CHARACTERd ) ,/*USER' INPUT DRIVE NO.*/ 

/* FILE DATA ENTRY DCLS */ 



I FIXED, 

FN CHARACTER ( 20 ) , 

LOWER CHARACTER (26) STATIC INITIAL 
( 'abcdef ,?hi .)klmnot)arstiivwxyz ' ) , 

UPPER CHARACTER(26) STATIC INITIAL 
( ' A3CDEFGEI JKLMNOPORSTUVWXYZ ' ) , 

/* GLOBAL VARIABLES */ 

FILTYP FIXFD BINARY (7) EXTERNAL,/* FILE NATURE*/ 
FNOP FIXED BINARY (7) EXTERN AL , /*FI LS NOT OPEN FLG*/ 
/* GLOBAL DATA STRUCTURES */ 

TXBUFF(1508) FIXED BINARY (7) EXTERN AL , /*TRANS BUFF*/ 
1 TXFCB EXTERNAL, /*TRANSMIT FILS CONTROL BLOCS*/ 

2 DISK FIXED BINARY(7), 

2 FNAME CHARACTERd), 

2 FTTPE CHARACTER(3) , 

2 TFCB(24:) FIXED 3INARY(7), 

/* EXTERNAL MODULES */ 

SENDATA entry;/* ISO LEVEL 3 FRAME SENDER*/ 



COUNTS =i; 

DO WHILE(C0UNT6=1); 

PUT SKIP LIST ( 'TRANSMISSION OPTIONS:'); 

PUT SKIP LISTv'SEND A MESSAGE =1'); 

PUT SKIP LIST('3END A DISK FILE = 2'); 

PUT SKI? LIST( J J 

PUT SKIP LIST( 'ENTER SELECTION ==>'); 

GET LIST(SENDTYPE) ; 

PUT SKI P ( 2 ) 5 

TXBUFF(a)=0;/* TYPE FIELD BYTE 2=N0RMAL MSG OP. FILE*/ 

IF SENDTY?E='l' THEN /*SSND A MESSAGE */ 

do; 

TXBUFF(7)=0;/*TYPE FIELD BYTE 1=MESSAGS*/ 

CALL sendata; 

C0UNT6=2; 

end; 
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ELS ^ 

IF SFNDTY?S='2' THEN /’"SEND A DISK FILE*/ 

do; 

TX5UFF(7 )=15;/* TYPE FIELD BYTE 1= FILE*/ 

C0UNT6A=i; 

DO WHILE(C0UNT6A=1) ; 

PUT SKIP LIST( 'NATUPE OF FILE TO SEND:'); 

PUT SKIP LIST('TEXT (ASCII) FILE = 1'}; 

PUT SKIP LIST( 'MACHINE CODE (COM) FILE = 2'); 

PUT SKIP T,isT( '*******************^^*********** ' ) ; 
PUT SKIP LIST( 'ENTER TYPE OF FILS CHOICE ==>'),* 
GET LIST(FTYP) ; 

PUT SKIP(2); 

IF FTYP='l' THEN 

do; 

FILTYP=i;/* SET THE FIL?TY?=TEXT FILE */ 
CCUNT6A=2; 

end; 

ELSE 

IF FTYP='2' TEEN 

do; 

FILTY?=2;/* FILE TYPE=MACHINE FILS */ 
C0UNT6A=2; 

end; 

ELSE 

PUt'sKIP LIST( 'INCORRECT CHOI CE-RSENTER : ' ) ; 

end;/* do loop */ 

C0UNT6B=i; 

DC WHILE ( C0UNT6B = 1 ) ; 

count6c=i; 

DO WHILE(C0UNT6C = 1 ) ; 

PUT SKIP LIST( 'SPECIFY FILE TO SEND:'); 

PUT SKIP LIST('FILE LOCATED ON:'); 

PUT SKIP LIST(' DRIVE A = 1'); 

PUT SKIP LIST(' DRIVE B = 2'); 

PUT SKI? EIS T ('*********************') ; 

PUT SKI? LIST ('ENTER DRIVE NUMBER==>'); 

GET LIST(DRNO); 

PUT SKI?(2); 

IF DRMO='l' THEN 

do; 

TXFCB.DISK=i; 

C0UMT6C=2; 

end; 

ELSE 

IF DRN0='2' THEN 

do; 

TXFC3.DISK=2; 

C0UNT6C=2; 

end; 

ELSE 
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PUT SKIP LIST('INVALID DRI VS-RE2NTSR : ' ) ; 

end;/* do loo? */ 

PUT SKI? LIST( 'ENTER;"?ILENAME.?ILETYPE"==>') ; 
GET LIST(FN); 

PUT SKIP(2); 

FN=TR ANS LATE (FN .UPPER, LOWER) ; 

I=INDEX(FN, 

IF 1=0 THEN 

do; 

txfcb.fname=fn; 

TXFCB.FTYPE=' 

end; 

ELSE 

do; 

TXFCB .FNAME=SUBST?.(FN ,1. 1-l ); 
TXFCB.FTYPE=SU3STR(FN ,1+1); 

end; 

TXFCB.TFCB(1)=0;/* SET FOB FIELDS THAT COUNT=0*/ 
TXFC3.TFCB(4)=0;/CURRENT EXTENT , RECORD ETC. */ 
TXFCB.TFCB(21)=0; 

CALL sendata; 

IF FNOP~=l TEEN 
C0UNT63=2; 

end;/* do loop */ 

C0UNT6=2; 

end; 

ELSE 

PUT SKIP LIST ( 'INCORRECT TRANSMIT MODE-REENTER:'); 
end; /* DO LOOP */ 

END TRANS2; 

END ETHERNET;/* ISO LAYER ? MODULE */ 
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APP51NDIX I 



SOUP.CE CODE FOP MODULE SENDATA.PLI 



SENDATA: /* PRESENTATION LAYER MODULE-ISO LEVEL 6 ’‘V 

procedure; 

DECLARE 

LOCAL VARIABLES */ 

C0UNT5A FIXED 3 1 NARY ( 7 ) , /^LOOP CONTROL-/ 

DESTADDR CHARACTER ( 1 ), /=!' DEST ADDRESS -USER INPUT-/ 
GLOBAL VARIABLES =«'/ 

TRMODE FIXED BINARY(7) EXTERNAL , /’^‘V AX CMD FLAG’iV 
VTERM FIXED 3INARY(7) EXTERNAL , /^TERMINAL FLAG’^'/ 
FRSIZS FIXED BINARY (15) EXTERN AL , /’*'5'RAME SIZE*^/ 

/* GLOBAL DATA STRUCTURES «/ 

TX3UFF(150B) FIXED BINARY (7) EXT ERN AL ; /’I'TRANS BUFF’^/ 

/*LAST REVISION; 09/15/83-0900 ORIGINAL PROGRAM :07/29/83=<V 
/^AUTHOR: CAPT. MARK D. STOTZER-USMC-AEGIS GROUP */ 

/^THESIS ADVISOR; PROF. UNO R. KODRSS-COMPUTER SCIENCE -/ 

IF VTERM= 1 THEN /* TERMINAL MODE -^ / 

do; 

CALL ssndmsg; 
return; 
end; 

IF TRMODE= 1 then /’^ VAX COMMAND MODS */ 

do; 

CALL sendmsg; 
return; 
end; 

C0UNT5A=i; 

DO «HILE(C0UNT5A=1) ; 

PUT SKI? LIST ( 'ADDRESSES ON THIS NETWORK;'); 

PUT SKI? LIST ( '30-03-SA; MDS SYSTEM =1'); 

PUT SKIP LIST( '00-04-0A; MDS SYSTEM = 2'); 

PUT SKI? LIST( '00-07-7F; VAX 11/7S0 =3'); 

PUT SKIP LIST( ) ; 

PUT SKIP LIST( 'ENTER SELECTION ==>'); 

GET LIST(DEST ADDR) ; 

PUT SKIP (2); 

TXBUFF(1)=2; /«LOAD THE FIRST FOUR DEST ADDR BYTES^/ 
TX3UFF(2)=7; 

TX3UFF'3)=i; 

TX3UFF.4)=0; 
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I? DESTADD?.= 'l " THEN 
Dc; 

TXBUFF(5)=3,'/-L0“D LAST TWO BEST ADDR BYTES-/ 
TXBUFF(6)=234; 

IF TX3UFF(7)=0 THEM/* SEND THE MSO*/ 

CALL sendmsg; 

ELSE 

CALL sendfile;/*send tee file*/ 

C0UNT5A=2; 

end; 

else 

IF DESTADDR='2' TEEN 
DO ; 

TXEUFF(5)=4;/*LCAD LAST TWO DESTIMATON ADDR BYTES*/ 
TXBUFF(6)=10; 

IF TX3UFF(7)=0 THEM 
CALL sendmsg; 

ELSE 

CALL SENDFILS; 

C0UNT5A=2; 

end; 

ELSE 

IF DESTADDK='3' THEN 

do; 

TXBUFF(5)=7;/L0AD LAST TWO DEST ADDE BYTES*/ 
TXBUFF(6)=12?; 

THMODE=0; 

IF TX3aFF(7)=0 THEN 
CALL SENDMSG; 

ELS E 

CALL sendfile; 

C0aNT5A=2; 

end; 

else 

?ut"skip list ( 'invalid net address SELECTED-ESEMTSR: ') ; 
end; /* DO LOO? */ 

SENDMSG: /* MESSAGE SENDING MODULE */ 

procedure; 

DECLARE /* LOCAL VARIABLES */ 

/* GLOBAL VARIABLES */ 

FRSIZE FIXED 3INARY(l5) EXTERNAL , /*FRAME SIZE*/ 
TRMODE FIXED BINARY(7) EXTEr N AL , /*VAX CMD FLAG*/ 
7TERM FIXED BINARY(7) EXTERN AL , /*TERMI NAL FLAG*/ 
/* GLOBAL DATA STRUCTURES */ 

TX3UFF(150S) FIXED 3INARY(7) EXTERNAL , /*TRANS BUF*/ 
RXBUFF(1522) FIXED BINARY (7) EXTERNAL , /*RSC7 BUFF*/ 
/* EXTERNAL MODULES */ 

FIL3UF ENTRY./* LOADS TRANS. BUFFER FROM CONSOLE*/ 
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S2NDFRAM ENTRY;/* ISO LEVEL 3 FRAME SENDER*/ 

IF VTERM=1 THEN /* VIRTUAL TERMINAL MODS */ 

do; 

CALL FIL3UF; 

IF TXBUFF(9)=96 THEN 

return; 

IF TX3UFF(9)=46 & TX3UFF( 10 ) =96 THEN /*SND SESSION*/ 
VTERM=0; /*END TERMINAL SESSION*/ 

ELSE 

CALL ssndfram; 

end; 

ELSE 

do; 

PUT SKI? LIST( 'MESSAGE SENDER:'); 

PUT SKIP LIST( 'MAXIMUM NUMBER OF CEA?«CTE?.S= '); 

PUT LIST(FRSIZS) ; 

PUT SKIP LIST( 'ENTER MESSAGE AFTER PROMPT: >'); 

PUT SKIP LIST('SND MESSAGE WITH ACCENT: ' '); 

PUT SKI? LIST( '>'); 

CALL FILBUF; /*FILL TRANSMIT BUFFER FROM CONSOLE*/ 
CALL SENDFRAM; /* SEND THE MESSAGE */ 

end; 

END sendmsg; 

SENDFILE: /* FILS SENDING MODULE*/ 



PROCEDURE; 

DECLARE /* LOCAL VARIABLES */ 

COUNT4 FIXED BINARY ( 7) , /*LOOP CONTROL*/ 

/* GLOBAL VARIABLES */ 

FILTYP FIXED BINARY(7) EXTERNAL , /*FI LE NATURE*/ 
FNOP FIXED BINARY! 7) EXTERN A L , /*NOT OPEN FLAG*/ 
LFRM FIXED 3INARY(7) EXTERNA L , /*LAST DATA FLAG*/ 
/* GLOBAL DATA STRUCTURES */ 

TX3UFF(1508) FIXED BINARY (7) EXTERNAL, 

/* EXTERNAL MODULES */ 

VAXTXT ENTRY,/* CP/M TO VAX FORMAT CONVERTER*/ 
TRNDMA ENTRY ,/*TRANSMIT SET DMA ADDRESS*/ 

OPSNDF ENTRY, /*OPEN DISK FILE*/ 

RDISK ENTRY, /*READ DISK FILS RECORD*/ 

SENDFRAM ENTRY ;/*I SC LEVEL 3 FRAME SENDER*/ 

/*LAST REVISION: 08/25/93-1530 ORIGINAL PROGRAM: 03/16/83 */ 
/*AUTHCR: CART. MARK D. STOT2ER-USMC-AEGIS GROUP */ 

/*THESIS ADVISOR: PROF. UNO R. KODRES-CCMPUTER SCIENCE */ 

TX3UFF(7)=15;/* LOAD TYPE FIELD BYTES*/ 

TXBUFF(a)=0; 

CALL opendf; 

IF FNO?=l THEN /*FILE NOT ON DISK*/ 
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do; 

PUT SKI? LIST('?ILE NOT ON BISK-RZZNT2R DATA:'); 

PUT SKIP(2); 

return; 

end; 

IF TX3U?F(6) = 127 S. ?ILTTP=1 THEN 

CALL VAXTXT; /-VAX TEXT FILE FORf^AT CONVEPTER’^V 

ELSE 

do; 

CALL TRNDMA; /=<' SET DISK DMA ADDRESS-/ 

PUT SKIP LI ST ( FILE TRANSFER BEGINS ' ) ; 

PUT SKIP(2) ; 

C0UNT4=i; 

DO WHILE(C0UNT4=1 ) ; 

CALL RDISK; /=«'P.EAD a disk file RECORD’!'/ 

I? LFRM'=1 THEN 

do; 

CALL SENDER am; 

TXBUFF(S)=i;/*ENCODE TIPS FLD=INTERMED FRAME’!'/ 

end; 

ELSE 

C0UNT4=2; 

end;/- do loop */ 

TXBUFF(9 )=255; /^'ENCODE TYPE FIELD=LAST FRAME’*'/ 

CALL sendfram; 

PUT SKIP LI ST ( '*«=:'=*'’*' FILE TRANSFER ENDS 
PUT SKIP(2); 

RETURN ; 

end; 

END sendfile; 

END SENDATA; /’!' ISO LAYER 6 TRANSMIT MODULE 



APPiNDIX J 



SOUPCE CODE POP MODULE RECDATA.PLI 



RECDATA: /* ISO LAYER 6 RECEIVE MODULE 



procedure; 



DECLARE /* GLOBAL DATA STRUCTURES -/ 

RXEU?P(1522) EIXED BIVARY(7) EXTERNAL ; /*RCV BUPE*!'/ 

/*LAST REVISION: 09/15/83-1215 ORIGINAL PROGRAM: 08/17/83 «/ 
/^AUTHOR: CAPT MARK D. STOTZEP-USMC-AEGIS GROUP -/ 

/^THESIS ADVISOR; PROF. UNO R. KODRSS-COMPUTSR SCIENCE -/ 

IF RXBUFF(17)= 0 THEN /* MESSAGE FRAME */ 

CALL conmsg; 

ELSE 

IF ?XBUFF(17)= 15 THEN /=«' FILE FRAME 
CALL filer; 

ELSE 

PUT SKIP LIST ( 'RECEIVED IMPROPERLY ENCODED FRAME'); 



CONMSG: /- MESSAGE RECEIPT MODULE -/ 

PROCEDURE; 

DECLARE /* GLOBAL VARIABLES «/ 

TRMODE FIXED BINARY(7) EXTERNAL , /’i'V AX CMD FLAG*/ 
FRSIZE FIXED BINARY! 15) EXTERN AL ,/*FRAME SIZE*/ 
VTSRM FIXED BINARY(7) EXTERN AL , /*TERMI NAL FLAG*/ 
/* GLOBAL DATA STRUCTUPES */ 

RX3UFF(1522) FIXED 31 NARY (7) EXTERNAL , /*RECV BUF*/ 
/* EXTERNAL MODULES */ 

TRMSG ENTRY,/* ACKNOWLEDGE SENDER*/ 

SMTBUF ENTRY ;/*DUMPS RECEIVE BUFFER TO CONSOLE*/ 



IF VTERM~=1 THEN /* NOT IN VIRTUAL TERMINAL MODE*/ 

do; 

PUT SKIP list!'***** received MESSAGE IS:'); 

PUT SKI?!2); 

end; 

CALL EMTBUF; /* DUMP THE RECVD FRAME DATA TO CONSOLE */ 
CALL TRMSG ; /* SEND THE ACK FRAME */ 

IF VTERM"=1 THEN /*NOT IN TERMINAL MODE*/ 
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do; 

PUT SKIP(2); 

PUT SKI? lIST( ZND OF MFSSAGI TEXT.'); 

PUT SKIP(2); 

PUT SKIP LIST('5ACK IN WAIT LOO?-ENTER<CR> TO EXIT= 
PUT SKI*^ LIST( 

PUT SKI?(2); 

end; 

ELSE 

IF RX3UFF(18)= 15 TEEN /*LAST FRAME OF TERMINAL REPLY-/ 
PUT SKIP LIST( 'V>') ; 

END conmsg; 



FILER: /* FILE FRAME RECEIPT MODULE’*'/ 

procedure; 



DECLARE /’*' GLOBAL VARIABLES */ 

TRMODE FIXED BINARY (?) EXTERN AL , /-CMD FLAG-/ 
RSCFIL FIXED BINARY!?) EXTERNAL , /-RFILE NO.-/ 

VTERM FIXED BINARY (?) EXTERN AL , /'-TERM FLAG’*'/ 

/=*= GLOBAL DATA STRUCTURES ’*'/ 

1 RXFC3 EXTERNAL, /’"RECEIVE FILE CONTROL BLOCK’*'/ 

2 DISK FIXED BINARY(?) , 

2 FNAME CHARACTER(S) , 

2 FTYPE CRARACTERf 3) , 

2 TFCB(24) FIXED 3INA?Y(?), 

RXBUFF(1522) FIXED BINARY(?) EXTERNAL , /’*'RX BUF’*'/ 
/’*' EXTERNAL MODULES *'*'/ 

RCVDMA ENTRY,/’*'SSTS RECEIVE DISK DMA ADDR’*'/ 
DELEDF ENTRY, /’*'DELETES FILES’*'/ 

MAKEDF ENTRY, /’5'MAKES NEW DISK FILES’"/ 

WRDISK ENTRY, /’"WRITES A DI SK RECORD’"/ 

TRMSG ENTRY, /’"SENDS ACK FRAMES’"/ 

CLOSDF ENTRY;/’"CL0SES disk FILES’"/ 



CALL rcvdma; 

IF RXBU?F(18)=0 THEN /’" FIRST FILE FRAME ’"/ 

do; 

PUT SKIP list!'’"’"’"’"’"’"’" fils RECEIPT BEGINS 
PUT SKIP LIST(' OPENING FILE- RSCFROM_.NET:'); 

PUT SKIP(2); 

RXFCB.FNAME='RECFROM '; /’"NAME THE RECEIVED FILS’"/ 
RXFC3.FTYPE='NST'; 



) 



RXFCB .TFCBa) = 0; /’"ZERO THREE FIELDS OF FC3’"/ 

RXFCB .TFCB{4)=0; 

RXFCB TFCB(21)=0; 

CALL D^EDF; /’"delete old file of THIS FN.FT’"/ 

CALL MAKEDF; /’"CREATE A NEW ONE’"/ 

CALL WRDISK ; /’"W^^ITE FIRST REC0RD(12S BYTES) TO DISK’"/ 



?4 



\/ 



CALL TH^^SG; /- SEND THE FIRST ACK FRAME */ 

end; 

ELSE 

IF RXBUFF;18)=1 then /’-'INTERMEDIATE FILE FRAME’*'/ 

DO; 

CALL WRDISK; /’i'WRITE NEXT RECORD TO DISK’*'/ 

CALL TRMSG; /’*' SEND THE ACS FRAME ’*'/ 

END; 

ELS E 

IF RXBUFF(18)=255 THEN /*L AST (DUMMY ) FILE FRAME’*'/ 

do; 

CALL CLOSDF; /-close the DISK FILE’*'/ 

PUT SKIP L I sT( '’*'*’*'=*'’*'’*'’*' END FILE RECEIPT ' ) ; 

PUT SKIP LIST(' SEE FILE (S ) :RFCFROM_ .NET ') : 

PUT SKIP(2) ; 

CALL TRMSG; /’*'SEND the LAST ACK -/ 

PUT SKIP LIST( ' NOTE; ' ) ; 

PUT SKIP LIST( ' ') 

PUT SKIP LIST('IF RECEIVED FILE IS A TEXT FILE FROM') 
PUT SKIP LIST('THE VAX THEN REFORMAT USING:'); 

PUT SKIP LIST('’PIP FNAME.FTYPE=RECFROM_.NET[D80] ■'); 
PUT SKIP LIST('WHE?E FNAME.FTYPE IS YOUR CHOICE'); 

PUT SKIP LIST( ' ') 

PUT SKIP(2) ; 

IF VTERM=1 THEN 

do; 

PUT SKIP LIST ('STILL IN VAX TERMINAL MODE:'); 

PUT SKIP LIST( 'V> ' ); 

end; 

ELSE 

do; 

PUT SKI? LIST('IN WAIT LOO?-SNTER<CR > TO EXIT"); 
PUT S^I? LIS?( ' ) ; 

PUT SKI?(2); 

end; 



end; 

ELSE 



PUT SKI? 

END filer; 


LIST 


( ' FRAME 


TYPE FIELD 


BYTE 2 


INVALID 


END RECDATA 


; /'-' 


ISO LAYER 


6 RECEIVE 


MODULE 


’*'/ 



APPENDIX K 



SOURCE CODE FOR MODULE ETHER2.ASM 



5}c3j::;s at: Jjisjtalc >;?:*? :^sa?:{s :}?:<cs;sat:a;c3j:3t:5^5i«30ca;s:^5{s5{c :^:a;: 

a;: :{: a;c a|c a;< a;: a:c a|s 5j< :<< ajc s;s a{c at: >rS 5jc at: a;c ajt a;c ai< :^c a;: at: 3j« a;c 3}5 ajc :{: aj: a}c ;{< a;t a}c a;s a^s aje a}c at: ajc ajc a;c a;c a;s aj: a{c aj: ^ 

a;; a^ at: ajc a;e a,*: a^^ a;c a;? a}c a^: at: at: ajc a;t a|s a;s a;i ajc a^c a|? a;: a;s a^ a;? a;e a}c ajf a(c a}: a{c a^ a^« a(t a}: a^ a^ a*: aj: ajK :*« aj: a;: at: aj: a}s a{c :}: a;: at: a:? aj« a}c a^ ^ 

PROGRAM NAME :RTHER2. ASM 

THIS MODULE PEREORMS TEE ISO LATER 2 AMD 3 FUNCTIONS IN 
TRANSMIT AND RECEIVE AND PROVIDES TEE ISO LAYER 7 
RECEIVE MODULE 

APPLICATION LAYER(LAYER 7):IN RECEIVE ONLY- WAIT LOO? 
FOR FRAME ARRIVAL. 

NETWORK LAYSR(LAYSR 3) -.TRANSMIT OR RECEIVE FRAMES 

DATA LINK LAYER (LAYER 2):PR0CESSES ACKNOWLEDGE FRAMES 
IN ADDITION TO TEE LAYER 2 FUNCTIONS PERFORMED BY THE 
N 13010 CONTROLLER BOARD. 



THIS MODULE ALSO ALLOWS ALL OTHER MODULES TO ACCESS 
THE CR/M-80 OPEPATING SYSTEM FUNCTIONS SEOWN BELOW 



; LAST R 


EVISION: 09/16/93-1000 ORIGINAL PROGRAM: 


08/14/83 


; AUTHOR 


: CART MARK D. STOTZER-USMC-AEGI S MODELING 


GROUP 


; THESIS 


ADVISOR: PROFESSOR UNO R. KODRES-C OMPUTSR 


SCIENCE 


• «*. mi* «V mi^ ..1^ mif mi* mi» ^J* mX^ mi* mir mi* mi* mj* mi* mi* mi* m,** mA* mi* mt* mi* mi* mt* mi* mi* mi* mi* mj* ml* slk» mi* mi* ^* 

■ *’(• ^ -V "1'* *T“ *t* *%*■ •'%*’ "(r *T* ^ *t» *t» ^ ^ ^ ^ *«• •’*- *X^ *'•- *1^ *1^ ^ *!*■ ^ ^ *T» *1^ *r» ^ ^ ^ 




PUBLIC 


I nit; SUBROUTINES AVAILABLE TO EXTERNAL MODULES: 


PUBLIC 


RECEIVE 




PUBLIC 


FILBUF 




PUBLIC 


EMTBUF 




PUBLIC 


NULBUF 




PUBLIC 


AWAIT 




PUBLIC 


TRMSG 




PUBLIC 


WRDISK 




PUBLIC 


VAXTXT 




PUBLIC 


SENDFRAM 




PUBLIC 


RDISK 




PUBLIC 


OPENDF 




PUBLIC 


DELEDF 




PUBLIC 


MAKEDF 




PUBLIC 


CLOSDF 




PUBLIC 


RCVDMA; MODULES CALLED BY THIS MODULE 
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PUBLIC TRNDMA 
5XTRN RSCDATA 

; NI3010 BOARD REGISTER. PORT ADDRESSES: 



CREG 


EOU 


00B0H; 


COMMAND REGISTER 


SREG 


SOU 


00B1H; 


COMMAND STATUS REGISTER 


ISREG 


EOU 


00B5H; 


INTERRUPT ST.ATUS REGISTER 


lEREG 


EOU 


00B8H; 


INTERRUPT ENABLE REGISTER 


EBAR 


EOU 


00B9H; 


EXTENDED BASE ADDRESS REGISTER 


H3AR 


EOU 


00BAH; 


HIGH BASE ADDRESS REGISTER 


LBAR 


EOU 


00BBE; 


LOW BASE ADDRESS REGISTER 


EBREG 


EOU 


00BCH; 


HIGH BYTE COUNT REGISTER 


LBREG 


EOU 


00BDH; 


LOW BYTE CCUNT REGISTER 


;cp/M 


WARM BOOT 


ENTRY POINT; 


EXIT 


EOU 


0000H; 


WARM BOOT-TERMINAL ERROR ESCAPE 


;bdos 


EOUATES : 






BDOS 


EOU 


0005HJ 


BDOS ENTRY POINT 


lEDOS 


FUNCTION 


CODES : 





CONSIN 


ECU 


01H 


CONSOLE CHARACTER INPUT 


CONSOUT 


EOU 


02H 


CONSOLE CHARACTER OUTPUT 


PSTRING 


SOU 


09H 


PFINT STRING 




CONSTAT 


EOU 


0BH 


CHECK CONSOLE 


STATUS 


OPENFIL 


SOU 


0FH 


OPEN A DISK FILE 


CLOSES 


EOU 


10H 


CLOSE A DISK 


FILS 


DELETE 


ECU 


13H 


DELETE A DISK 


FILS 


READS 


EOU 


14H 


READ A DISK FILE REC0RD-12S BYT 


WRITES 


EOU 


15H 


WRITE A DISK 


FILS RECORD-125 BY 


MAKES 


EOU 


16H 


CREATE A NEW 


DISK FILS 


SDMA 


EOU 


lAH 


SET DISK DMA 


ADDRESS 






* 3jC3YCiJ£3(C5^.J^!Sj:^5jS^JJC3{t5)£>[S>)t^^I^>[S3jS5jt3l'tICjj£l{c5l€3{S3jiiJC5{!5l{^?JS2lci,i5!J 

; INIT- INITIALIZES INTERRUPT VECTOR 



u »v» **.» 



•Y» *ir *r* *r* •'r* 'i- n* nr* 



AND NI3010 REGISTERS: 



INIT 



DI 

IN SREG; READ STATUS REGISTER TO CLEAR 

MVI A,03FH; CLEAR NI3010 RECEIVE BUFFER 

OUT CREG 

CALL READ 

MVI A.12H; SET UP INTERRUPT CONTROL 

OUT 0FDH 

MV I A,00E 

OUT 0FCH 

MVI A.0DFH; ENABLE INT5 ONLY 

OUT 0FCH 

MVI A,0C3H 

STA 0028H 

LXI H,RECFRAM 

SHLD 0029H 

LXI H.ACK 

MVI A,0FFH; PRELOAD ACKNOWLEDGE BUFFER 

MOV M , A 

LXI H,CEREG; enable RECEIVE(RBA) INTERRUPT 
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CO M 
PI ^ 



M7I A.04H 

MOV M,A 

CUT I2??G 

MVI A,09H; NI3010 ONLINE COMMAND 

OUT CREG 

CALL READ 

El 

RET 

:4c ^ ^ :(e :^t :{c :4c 4; s;: 3$: jjc :4c :jc 3i: sjc 3jc sic s^c jjc sit ^ 3{: :je 3 ;: $ :{( >|c ^ ^ ^ ^ ^ ^ 

RECEIVE: ISO LAYER 7-WAIT LOOP FOR INCOMING FRAMES: 



RECEIVE 

WAITLP 



NOTTST 



El 

NOP 

NOP 

NOP 

NOP 

NOP 

DI 

LXI 


H,F?AMIN 


MOV 


A ,M 


CPI 


01H; HAS 


JNZ 


NOTYST 


CALL 


RECDATA 


MVI 


a,00h; re 


STA 


FRAMIN 


MVI 


C .CONSTAT 


CALL 


EDOS 


CPI 


00H 


RNZ 

El 

JMP 


WAITLP 



A FRAME ARRIVED? 



lET FRAME ARRIVAL FLAG 



:}c a;: :{e :{c ?{c a;« s;<:^ 3^ 54: j;: :{c5j:5jc:is?^:5:3jc 5|«5{i tfyC ajc 3!( a{:)^ 5 ^ ajc 5fC aj: 5|X 54 s 5{« 5jc 5fc ajc 3 ^ 54 c 

3^ 54: 5^ 5^ six 5;: :|e 5^ 5 }c 5;: 5 {e 5;: 3;: 5 ;c 54 : 34c s;c 3 (c 5^ 5^ 5 |c : 4 s a^c 5 >: 54: 54; 5 }c 5 }e : 4 c 5}; 5;; s^c 5 }e 54c 5 $c 5;: Xc 54; 5 }e aji 54c a;t 3 CC 5 X ^ >r 3 ^ 3 }e 5 ic 3 }: 5 tc 3^ :$( :$e 

RECFRAM-PERFORMS ISC LEVEL 3 FUNCTION IN THE RECEIVE 

MCDE:RECSIVES FRAMES AND TRANSFERS THEM TO MEMORY. 
HANDLES ALL NI3010 INTERRUPTS AND ENABLES. 



RECFRAM 



DI 

PUSH 


PSW 


PUSH 


3 


PUSH 


D 


PUSH 


CT 


LXI 


H.CEREG 


MOV 


B ,M 


MVI 


A.00H 


LXI 


H.CEREG 


MOV 


M. A 


OUT 


lEREG 


MOV 


A ,3 


MVI 


3.04H 



7S 



CMP 


B 


JZ 

MVI 

CMP 

JZ 

JM? 

RBA MVI 

OUT 
LXI 
MOV 
OUT 
MOV 
OUT 

LxHLD 

LXI 

DAD 

MOV 

OUT 

MOV 

OUT 

LXI 

MVI 

MOV 

OUT 

JM? 

HDD LXI 

MOV 
CPI 
JNZ 
MVI 
ST A 
LXI 
MOV 
CPI 
J^iZ 
LXI 
MOV 
CPI 
JNZ 
MVI 
3TA 
JMP 

FREER DI 

LXI 
MVI 
MOV 
CUT 
LXI 
CALL 
LXI 
CALL 


REA; RECEIVE FRAME INT WAS ENABLED 

B,07H 

B 

RDD; RECEIVE DMA INT WAS ENABLED 
RDD2; IF TRANSMIT DMA INT WAS ENABLED 
A 

E3AR 

h,rbufft; top of receive buffer 

A,H 

HBAR 

A.L 

LBAR 

FRS I ze 

d',0016H; add 22 TO IT 
D 

A.H 
HBREG 
A,L 
LBREG 
H CEF^G’ 

A^OTHr SET INT ENABLE TO RDD 

M,A 

lEREG 

FINI 

h.rbufft; top of receive buffer 

A M 

30H; tests for good frame 

FRERR; BAD RECVD FRAME 

a,01h; set frame arrived flag 

FRAMIN 

H,RTY?Ei; TEST FOR RECVD ACK FRAME 

A,M 

00H 

RDD2 

H.RTYPS2 
A,M 
0FFH 
RDD 2 
A.01H 

ACS; ACK FRAME RECVD 
RDD 2 

H,CEREG 

A,00H 

M,a; DISABLE BOARD INTERRUPTS 

lEREG 

D.FERMSG0 

TXTOUT 

D,TERRMSG 

TXTOUT 
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RDD2 



FIN I 






JMP exit; escape to cpm 

LXI H,CERSG 

MVI A.04H 

MOV M,»; RESET I NT ENABLE TO HBA 

OUT lEREG 

POP H 

POP b 

POP B 

MVI A,?20H; restore int priority 

OUT 0FDH 

pop PSW 

El 

RET 



^ ^ ^ # 4; ;jc v;; ^ ^ ’it # ^ ’tc ’r ^ ^ ^ ^ 9 3r ^ :{c ^ 



FILBUF-PLACSS CONSOLE INPUT MESSAGES INTO TRANSMIT BUFFER 



FILBUF 


LHLD 

XCHG 


fp.size; load count=frams size 




PUSH 


D 




LXI 


h.tfdata; load addr =transmit data top 




PUSH 


H 


MSGLP 


MVI 


c.consin; input consols char. 




CALL 


BDOS 




POP 


H 




POP 


b 




CPI 


0de; was carriage return input? 




JNZ 


RDCP 




PUSH 


H ; YES 




LXI 


h.vterm; in ter'^inal mods? 




MOV 


A,M 




CPI 


01H 




JZ 


vtend; then this is end of msg. 




POP 


H 




MOV 


m,a; store the char. 




INX 


H 




MVI 


a,0ah; add a line feed 




MOV 


m,a; store the linefeed too 




PUSH 


D 




PUSH 


E 




^"VI 


c.consout; output it to console 




MOV 


E.A 




CALL 


BDOS 




POP 


H 




POP 


D 




JMP 


rdcon; continue to read tee buffer 


RDCP 


CPI 


08H; 3ACKSPACE=S = C.NTL-H 




JZ 


BACKSP 




CPI 


60H; grave accent='=end of message 




JZ 


SENT 




MOV 


m.a; store the char. 
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4 



i-:^r 





DCX 


d; decrement the counter 




MOV 


A.D 




ORA 


E 




JNZ 


RDCON; IF CTR NOT ZERO THEN CONTINUE R: 




PUSH 


H 




LXI 


D,L0N0MSG;SRR0R MSG:T00 MANY INPUT CHA 




CALL 


TXTOUT 


VTEND 


POP 


H; TERMINAL MSG IN BUFFER-DONE 




MVI 


A,60H 




JMP 


SENT 


RDCON 


PUSH 


D; CONTINUE BRANCH 




INX 


H 




PUSH 


5 




JM? 


MSGLP; GET ANOTHER CHAR 


BACKS? 


INX 


D 




PUSH 


D 




DCX 


H 




PUSH 






JMP 


MSGLP; GET ANOTHER CHAR 


SENT 


MOV 


m,a; store the chap. 




PUSH 


H 




LXI 


D.DADDF; LAST ADDR BYTE 




MOV 


A,M 




CPI 


07FH; is VAX =DESTINATION? 




JZ 


SENFIN 




POP 


E 




MVI 


A,03H 




MOV 


M,A; SOTRE a NULL IN PLACE OF ACCENT 




CALL 

RET 


EOLN 


SENFIN 


POP 


H 




CALL 

RET 


EOLN 




^ V ’ 

^1% < 


j 5}: 


nr* *.•* n'* •’i' 


^ %*# ^ ^ ^ ^ ^ ^ ^ ^ 1 
>1* «i^ ^1% ^1^ 0%^ < 


; EMT3UF 

• 


-DUMPS 


RECEIVE BUFFER TO CONSOLE: 


SMT3UF 


LHLD 

XCEO 


FRSIZE 




PUSH 


D 




LXI 


h,rdat*t; top of receive buffer 


CCNLP 


MVI 


c.conscut; char to console 




MOV 


S ,M 




PUSH 


5 




CALL 


3D0S 




POP 


E 




POP 


r 




DCX 


"n 

U 




MOV 


a,d 




ORA 


>1 




JZ 


'^sgdone; if count=frams size-done 
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PUSH D 

INX H 

JMP CONLP 

MSGDONE CALL EOLM 

CALL EOLN 

RET 

; VAXTXT-CONVSRTS CPM EOHNAT TEXT FILES TO VAX FORMAT: 



V A XT XT 



READREC 



RDLPA 



CALL EOLN 

MVI c,cpsnfil; open the disk file 

LXI D,?CBIN 

CALL 3DOS 

CPI 0ffh; test if open successful 

JZ FERRl 

MVI C,SDMA; set the disk DMA ADDRESS 

LXI D.TXTTCP 

CALL BDCS 

LXI D,TRMSG1 

CALL TXTOUT 

CALL EOLN 

LXI H,TXTTOP; TO? OF TEXT BUFFER 

PUSH H 

LXI* D,TFDATA; TRANSMIT BUFFER 1ST DATA BYTE 

PUSH D 

MVI b.ooh; byte ctr=0 

PUSH 3 

CALL NULBUE; fill transmit BUFFER WITH 00 HEX 
MVI C.HEADF; read a disk FILE RBC0RD=12S BYTES 

LXI D.FCBIN 

CALL 3DOS 

CPI 00H; IS THIS LAST RECORD? 

JNZ ENDED 

POP B 

POP D 

POP H 

I NR b; increment counter 

MOV A,B 

CPI 081H;=129 last byte THIS RECORD 

JZ RE AD 2 ; GET ANOTHER RECORD 

MOV A,M 

CPI 0Dh; cret? 

JZ SKIP2 

CPI 0ah; lfeed? 

JZ SKIP3 

XCHG 

MOV M,A 

XCHG 

INX H 

INX D 
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PUSH 


U 


PUSH 


D 


PUSH 


3 


JMP 


RDLPA 


SKIP2 INX 


h; if eyte=cret then send the frame 


PUSH 


H 


LX I 


D,TFDATA 


PUSH 


D 


PUSH 


B 


CALL 


SSNDFRAM; SEND IT 


CALL 


NULBUF; NULL THE BUFFER ACAIN 


MVI 


A,01H; set tips field=intermed frame 


ST A 


TTTP2 


JM? 


rdlpa; read next byte after skip cret 


S5IP3 INX 


h; if linefeed then skip and read mor 


PUSH 


H 


PUSH 


D 


PUSH 


B 


JMP 


RDLPA 


READ2 LXI 


H,TXTT0P; if CTR >12S THEM JET RECORD 


PUSH 


H 


INX 


D 


PUSH 


D 


MVI 


3,00HT RESET BYTE CTR 


PUSH 


5 


JMP 


RSADREC JET THE NEXT RECORD 


ENDED MVI 


A ,0FFH 


STA 


TTYP2 


POP 


B 


POP 


D 


POP 


g 


CALL 


SENDFRAM 


LXI 


D,DMSG 


CALL 


TXTQUT 


RET 


; DONE 


FERRl LXI 


D.ERMSJ; ERROR MSG-FILS NOT OPEN 


CALL 


TXTOUT 


RET 

* 3^ 3^ 3^3^ 3^ 3f«3yS 3^ 5}C 3^ 3^ 3jC 3{S 3^ 3^ 3(S 5}C 3ijC 3^ 3^ SjC 3{S 3^ 3}C 3^ 3^5{S 3^ 3^ «{C3|C 3^ S{S 3|{ 3jC 3}C 3{C3}C 3jf 3jC 3|* 5^ 3{% 3jC 3jS 3j% 3jC 


• ^%/«» V# v<» ^ %v%v 

« 1% 0^ 


W V# %V wu wu wU 

>1^ rg* ^1^ 


; ISO LEVEL 3 TRANSMIT EUNCTION-SENDFRAM : 


; SENDFRAM-SENDS 


FRAMES ON THE ETHERNET: 


SENDFRAM DI 


LOCPl LXI 


H.CERSG; LOOP UNTIL ENABLE RSG= 0 OR 


MCV 


A.M 


CPI 


00H 


JZ 


GO 


CPI 


04:H 


JZ 


GO 
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GO 



GOl 



COMP 



VTCON 



El 




JMP 


LOOPi; 5E 


DI 




LXI 


H,CEREG 


MOV 


A.M 


CPI 


00H 


JZ 


GOl 


CPI 


04H 


JZ 


GOl 


El 




JMP 


LCOPi; IF 


MV I 


A,00E 


LXI 


h,csreg; 


MOV 


M ,A 


OUT 


lEREG 


SI 




MVI 


A,00H; LO 


OUT 


EBAR 


LXI 


h.tbufft; 


MOV 


A,H 


OUT 


H3AR 


MOV 


A ,L 


OUT 


LBAR 


LHLD 


frsize; s 


LXI 


D,0008H; 


DAD 


D 


MOV 


A,H 


OUT 


HBREG 


MOV 


A ,L 


OUT 


iiBR.EG 


DI 




MVI 


A,06H 


LXI 


h,cereg; 


MOV 


M,A 


CUT 


ISREG 


El 




HIT 


• 

9 


LXI 


H.CEREG 


MOV 


A.M 


CPI 


06h; has 


JZ 


COMP 


DI 




LXI 


H.VTERM 


MOV 


A.M 


CPI 


01h; virt 


JZ 


VTCON 


LXI 


D.MSGl 


CALL 

El 


TXTOUT 


MVI 


A.029H; N 


DI 





WAIT FOR TH2 INTERRUPT 



A,029H; NI3013 LOAD TRANSMIT AND SEND CMD, 
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OUT 


CEEG 


CALL 


THREAD 


LXI 


h,ace; 


MV I 


A,00R 


MOV 


M,A 


El 




CALL 


await; 


RET 





SET ACK TO SENT 
WAIT FOE ACENOWLEDOS FHAM 



5^;:<s:i:5j:;^c:;t:;<t:5*t5}c 

%W WU %A^ »w 4»V *v 

ISO LEVEL 2 ROUTINES: AWAIT (TRANSMI T ) AND TRMSG (RECSIVS) : 






• «Jt- <ju ^ «t* «t> «ju JL. *.y aju «iy «>« yu yy 



aj: 51; 3{C 5}: 5|t ^ :Je :^c J}c ;<: 5{c >Js 3*: s}c ?;r :{5 a§: :Js 5i: ^ :{c :Jc 5}c 5{c 5{5 :;c # :4C>{C 3}C :{£ :{: >tt :5; 3{C 5*C s{: 

AWAIT-WAITS FOR RETURN OF ACENOWLEDGE FRAMES: 



AWAIT LXI 


D,O0eOFE; FIRST TIMER LOO? 


COUNTER 


TRNLP LXI 


3,0FFFFE; inner LOOP 




TRNLFl LXI 


E.ACE 




MOV 


A,M 




CPI 


01e; received ace yet? 




JZ 


BACK 




DCX 


B 




MOV 


A,C 




ORA 


B 




JNZ 


TRNLPl 




DCX 


D 




MOV 


A,E 




ORA 


D 




JNZ 


TRNLP 




LXI 


d.timmsg; timed out-abort 




CALL 


TXTOUT 




LXI 


d,terrmsg 




CALL 


TXTOUT 




JMP 


exit; ESCAPE TO CPM 




RACE MVI 


A.0FFH; RESET ACE FLAG 




STA 


ACK 




MVI 


A,00H; RESET FRAME ARRIVAL 


FLAG 


STA 


framin 




RET 


: s): :{e * # j;j :jc sj! :?! 5j: sj! # :{! si! :^! 5(5 # 5{e sj! # sic :j! :j! jjt 5}! 4c # ;;j sit a:t 


sic s|e 4: 3^ sic sic sic 


; TRMSG-SENDS 

• 


ACKNOWLEDGE FRAMES IN RECEIVE MODE: 


TRMSG MVI 


C,03H; CTR=3 




LXI 


H.SRCADDD 




LXI 


D.DADDD 




LOOP2 MOV 


A,M 




XCEG 

MOV 


M, A 




XCEG 

DCR 


C 




JZ 


LDCONT 





5j» 5jS ?|C 5|J 3^ 
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LDCONT 



DONE 



RDIS5 



INX 


H 


INX 


D 


JM? 


LCCP2 


f^VI 


A,02OH; reset INTERRUPT PRIORITY 


CUT 


ZEDH 




A.00H 


OUT 


SEAR 


LX I 


H.TBUFPT 


MOV 


A.H 


OUT 


HB 4R 


MOV 


a,l‘ 


OUT 


L3AR 


LHLD 


ERSIZE 


LX I 


D ,0009H 


DAD 


D 


MOV 


A.H 


OUT 


HBREG 


MOV 


A ,L 


OUT 


LEREG 


MV I 


A,00H; load TYPE FIELD=AC5 FRAME 


STA 


TTYPl 


MV I 


A.0FFH; ACK FRAME 


STA 


TTYP2 


MVI 


A,06H; enable TDD INTERRUPT 


LX I 


E.CEREG 


MOV 


M, A 


OUT 


lEREG 


SI 

3LT 


; WAIT FOR THE INTERRUPT 


LXI 


H .CEREG 


MOV 


A M 

06H; transmit dma done? 


CPI 


JZ 


DONE 


DI 

MVI 


A,029H; LOAD TRANSMIT AND SEND COMM, 


OUT 


CREG 


CALL 


THREAD 


RET 

; 3}: :i;c : 


Xt jje >!s :{: jjc j}: 3): :{!;}: :!c Jjs :;t ^ J? sic ^ Jjs =(S ^ 5f: »)e ^ sf: : 




NG SYSTEM 


SUBROUTINES: 


MVI 


A,00H; reads a disk file RSC0RD=12S 


STA 


LFRM ; PRELOAD LAST FRAME FLAG 


LXI 


D.FCBIN 


MVI 


C .READF 


CALL 


BDOS 


CPI 


00E; =N0T LAST FRAME 


HZ 

MVI 


a.01h;=last frame 


STA 


LFRM 



AND 



Oy 

mf #>|<^ >1^ 

:i!^>;t5S3S5;s 



BYTES 
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R2T 



WRDISK MVI 


c , writef;writss disk file record-ipsbyte, 


LX I 


D.FCPOUT 


CALL 


3D0S 


CPI 


00H 


JNZ 


DWSRR 


LXI 


D,WRMSG 


CALL 


TXTOUT 


RET 

DWSRR LXI 


H.CEPEG 


MVI 


a,00h; disable board interrupts 


OUT 


lEREG 


LXI 


D ,DWMSG 


CALL 


TXTOUT 


JMP 


exit; escape to cpm 


j :{:3{c:<;5}C3;c5;ca{c3{c:^:4cXi5;:5*::«cj;c5>:5je:C«^>}::^ j}:3;c>}:3{cXt :«S5;:5}sa;ssJ< 


OPENUE MVI 


a,0?h; opens disk files 


STA 


FNO? 


LXI 


D.FCPIN 


MVI 


C .OPENFIL 


CALL 


3D0S 


CPI 


0ffh; opening error 


RNZ 

MVI 


A,01H 


STA 


FNO? 


RET 

J :!eJi:5!s##:;t^3!si!t:{c#:{s:i£:<ts):j!«3ic 


:!: # sit :<t j^e # # # # « sS j!: # 5): 5!= sf: # # <t # sje i? # >? # 5? # Sit !!f Jj! # si« 5{s # 5i« « s|t :;e :!« >)5 


DELED? LXI 


H.RECFIL; deletes existing disk FILES 


MOV 


A.M 


INR 


a; increment received file number 


STA - 


RECFIL 


STA 


FC30UT-8 


LXI 


D,FC30UT 


MVI 


C, DELETE 


CALL 


BDOS 


RET 


Sit :(t sjt sit ^t si: # :jt S*: 3)e sit S}! !(S sic sit sj: :<t sit <t :(t sic # 5|t sit ;jt ^t 5S :{t :«t sit si: # s): * s(t sjt si: sit # sit 


MAKEDF LXI 


d.fcbout; makes a new disk file 


MVI 


C .MAKE? 


CALL 


BDOS 


R5T 


CLOSDF LXI 


D.fcbout; closes a disk fils 


MVI 


C .CLOSE? 


CALL 


BDOS 


RET 

• vW Vf «V *V ^ ^ «V 

1 T* •T~ ^ ^ 'T> "V* ^ •nt' ^ ^ 't' ^ •V- "I' 


•J^ WV mJU WV %lip %V 

^ ^ ^ ^ nr* ^ #r* nr nr nr* nr nr* ^ ^r nr -r* 


P.CVDMA LXI 


D.RD.4T4T; SETS DISK DMA FOR RECEIVE MODS 


MVI 


C .SDMA 


CALL 


BDOS 
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RET 

• 5;r3jc3}c?!c5;:5*c5;::{t3;s>jc:|4 :}:30c ;;c:j:5}c5;c3it:{i:{:5tt5;c:*sX«5;«5t::J« :;c3{s5;:^ 


TRNDMA LXI 


D.TFDATA; sets disk DMA ADDR ECR TRANSMIT 


MV I 


C.SDMA 


CALL 


BDOS 


RET 


5n !«t # # * ^ ❖ 3(c # ^ # :je :<e Jjc 5i! # :j£ # jj: :(« s;: jJ: :J: :(s :{; 5)c =!t 5> s!« J): 5? # * 5 }: s;t >)c ❖ >;« 5i! * jjt 


j :{: s^s 5;s :{« 3}c :j: s;s :^c 3}: 5^ 3jc :{c :$c stc :*::}: 5{; 5j: :J: s;c 5js5;s:;sy,s^ sit:;::;; 5 *^ 5 ;? :;e 


; UTILITY SUBROUTINES: 


; READ-READS THE 


COMMAND STATUS REGISTER AFTER EACH COMMAND: 


READ MVI 


B,11111110B 


MVI 


C ,00H 


STLP IN 


ISRSG 


ORA 


3 


CPI 


0FFH; status ready to 3E read? 


JNZ 


STL? 


IN 


SREG 


CMP 


C 


JZ 


STDONE 


JMP 


ERROR 


TRREAD MVI 


3,11111110P 


STLPl IN 


ISREG 


ORA 


E 


CPI 


0FFH 


JNZ 


STLPl 


IN 


SREG 


CPI 


00H 


JZ 


STDONE 


CPI 


01K 


JZ 


STDONE 


ERROR LXI 


D.EMSG 


CALL 


TXTOUT 


STDCNE RET 

• :fc 3jc ^ ^itiitsi; 


5 ;; :Jc :Jt 3}c :jc :jc :it :J; :{; sfs 3{; :jc 2 ^ 3 ^; life xfi sjc 5{^ sjs 5*; j*? :^c 3 ;; j^c 


; TXTOUT-CUTPUTS 


TEXT STRINGS TO THE CONSOLE: 


TXTOUT MVI 


C .PSTRING 


CALL 


3DCS 


CALL 


EOLN 


RET 


JiSSitSiCS.tSltSjtS^SSSsS^jt^XJX'^SiS^Si'^’pJSSr 55s:S5!e’j!:«'5:«^'<«55!5i!5)'5!5SiS5;=5i5 5?^ 


; EOLN -GENERATES 

• 


CARRIAGE RETURN ^ LINE FEED: 


t 

EOLN MVI 


C .CONSOUT 


MVI 


E.0DH 


CALL 


BDOS 


MVI 


C, CONSOUT 


MVI 


S,3AH 


CALL 


BDOS 


RET 
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3!? jjc ?}::;« j:« :<c s;: >;{ 5j: 3*: ^ :4c s;s :J? 3^: s;: :4s 3{: 3>: a}: -s 5tc 3}c 5{c 5{c ajs 3f: j}c a;s a:t 

NULBUF-FILLS THE TRANSf^rT BUFFER VITH NULLS(00 HEX): 



NULBUF 


MVI 


C.0080H; CTR=128 




LXI 


H, TFDATA 


NULLOOP 


MVI 


A,00H 




MOV 


M,A 




DCR 


C 




RZ 






INX 


H 




JMP 


NULLOO? 


• «JU 

^ •T* ^ #>« 


sjc Jj'. 3{c 3{s 5|s aj: 


3^ 3$; 3^ 3}c a;e ate 3}e 3(c 3}e 3}e afe 3^: 3^ s(c 34 c 3{c aje aic 3}e 3}e 9{c sic 3)c 3^ 3{: 3{c :4c 3}e 3}c :4c :;c a;: 3^ 


• 34ca;e:$:3}e3)c:;c34e3}c:^3}c3tc3Qc3;c3;c3tc:i};34e34c9{e:^aie3^3;c:^:^4e3^3;;:(c:;c:4cs;c:ic3^3ic3;c3}::^3|ca^3;s3;ca}c:4c:4c:ie3i;:4c3i;3}e:4c:4s:it:;;3^:;;:4:3ic:4c 


; STORAGE ALLOCATION: 


FHAMIN 


DS 


1 ; FRAME ARRIVAL FLAG 


CSREG 


DS 


1 ; COPY OF INTERRUPT ENABLE REG VALUE 


; NEEDED 


MESSAGES 


• 

• 


TRMSGl 


DB 


'*’!'**** FILE TRANSFER BEGINS 


DMSG 


DB 


vile TRANSFER COMPLETE * =>“=:' s ' 


ERMSG 


DB 


'FILE NOT ON DISK$' 


NORESMSG 


DB 


'ON RESPONSE FROM VAX-SXITING TO CPM5 ' 


LCNGMSG 


DB 


'MAX CHARACTER LENGTH HEACHED-MSG SSNT$ ' 


TERRMSG 


DB 


'UNRECOVERABLE ERROR-EXITING TO C?/M$' 


TIMf^SG 


DB 


'TIMED OUT-ABORTING TRANSMISSIONS' 


SMSG 


DB 


'NI3010 COMMAND FAILEDS ' 


MSGl 


DB 


'TXS' 


FERMSG0 


DB 


'RECEIVED BAD FRAMES' 


WRMSG 


DB 


'RX$' 


DWMSG 


DB 


'DISK WRITS ERROR-DISK FULLS' 


C0MM0N/TXFC3/ 




FCBIN 


DS 


36; TRANSMIT FILE CONTROL BLOCK 


COMMON/R 


XFCB/ 




FCBOUT 


DS 


36; RECEIVE FILE CONTROL BLOCK 


COMMON/TXBUFF/ 




T3UFFT 


DS 


1 ; TRANSMIT BUFFER TOP-IST DEST ADD3YTE 


DADDB 


DS 


1 ; SECOND DEST ADDR BYTE 


DADDC 


DS 


1 ; THIRD DEST ADDR BYTE 


DADDD 


DS 


1 ; FOURTH DEST ADDR BYTE 


DADDE 


DS 


1 ; FIFTH DEST ADDR BYTE 


DADDF 


DS 


1 ; SIXTH DEST ADDR BYTE 


TTYPl 


DS 


1 ; FIRST TYPE FIELD BYTE 


TTTP2 


DS 


1 ; SECOND TYPE FIELD BYTE 


TFDATA 


DS 


1500; DATA FIELD MAX SIZE 


C0MM0N/RX3DFF/ 




RBUFFT 


DS 


13 ; RECEIVE BUFFER TOP-FRAME CHECK BYTE 


SRCADDD 


DS 


1 ; FOURTH SRCE ADDR BYTE 


SRCADDE 


DS 


1 ; FIFTH SRCE ADDR BYTE 


SRCADDF 


DS 


1 ; LAST SRCE ADDR BYTE 


RTTPSl 


DS 


1 ; FIRST RECVD FRAME TYPE FLD BYTE 


HTYPS2 


DS 


1 ; SECOND RECVD TYPE FLD BYTE 
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RDATAT DS 150?; 

CRCBYT DS 4 ; 

COMMON/TXTBUF/ 

TXTTOP DS 128; 

COMMON/FRSIZE/ 

FRSIZ2 DS 2 ; 

COMMON/ACS/ 

ACK DS 1 ; 

COMMON/FNOP/ 

FNOP DS 1 ; 

COMMON/LFRM/ 

LFRM DS 1 ; 

COMMON/TRMODE/ 

TRMODE DS 1 ,* 

COMMON/FILTYP/ 

FILTYP DS 1 ; 

COMMON/RFCFIL/ 

RSCFIL DS 1 ; 

C0MM0N/VT2RM/ 

7TSRM DS 1 ; 

2ND; ASSEMBLY 



R2C7D DATA FIELD MAX SIZE 
CRC FIELD 

VAX TEXT temp BUFFER 

ACTUAL FRAME DATA BLOCK SIZE 

ACKNOWLEDGE FLAG LOCATION 

FILE NOT OPEN FLAG 

LAST FRAME FLAG 

VAX TRANSMIT FLAG 

TYPE OF FILE TO SEND 

RECEIVED FILE NUMBER 

VIRTUAL TERMINAL SERVICE FLAG 
LANGUAGE MODULE ETHEH2.ASM 






« 3{:3;:4::^:^4c:4c:^:(c 3}: 3ic lie:;: 3<t 



9f*3js 3{c 9^ 3(C SjC 3j*«^ 3^9}! 9^ 9^ lift 9^ 9^ 9{C rfi 9jc 3^ 3(3 3(3 3j3 3(3 3(3 3(3 
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APPENDIX L 



TEST PROGRAM USER INSTRUCTIONS 



The Ethernet hardware test pro,?rafns, ETHTESTA and 
ETHTESTB, are used in the manner below: 

1. Invoice either program using normal CP/M-80 procedures. 

2. Both programs first command the NI3013 to run it's 
built-in diagnostic tests and report failures to the 
user via the console. The codes that ETHTESTB will 
display as ASCII letters are enooded as noted at the 
end of the ETHTESTB. ASM source listing. 

3. Next, both programs ask the user to input a short line 
of text that the programs use in testing the integrity 
of the essential data paths of the NI3010. Program 
ETHTESTB will as’x the user for a second text line 
input because it performs one more test than ETHTESTA. 
The maximum number of characters per line is^^42 and 
the line must be ended with a grave accent: 

4. The tests are successful if no error indications are 
displayed on the console and the text typed in is 
shown on the console exactly as it was entered after 
each data path input. 
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APPENDIX M 



COr^MQNICATION PROGRAM USER INSTRUCTIONS 



The instructions for use of the communication prosram 
ETHERNTT.COM are as listed helow: 

1. Invoke the pro 2 ram ETHERNET usina normal CP/M-50 
procedures . 

2. The proe:ram will then ask for the selection of: 

A. The disk drive number to write any received files 

to . 

3. The desired number of data bytes per Ethernet 

frame . 

C. The network service desired. The choices are: 

1. Send messages or files. 

2. Receive messages or files. 

3. Virtual terminal service with the VAX. 

4. Command file transfers to or from the VAX. 

5. Disconnect from the network. 

Depending on which of the above services is reauestei 
by the user, the program will do the following: 

1. Send a file or message: The program will ask the user 
to specify which one and, depending on the response, 
will do the following: 

A. If message sending is selected, the program will: 

1. Ask the user to choose the network address of 
the destination. 

2. Then ask the user to input the message itself. 
The maximum message size is determined by the 
previously selected data block size. The last 
character entered in order to transmit must be 
a grave accent character: " ' ". 

3. The message is then sent and upon successful 
receipt by the destination host the program 
restarts . 

3. If file sending is selected, the program will: 

1. Ask the user if the file is a text or machine 
cc^0 fils- 

2. Ask the user to specify which disx the file is 
located on. 

3. Ask the user the filename and filetype of the 
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4. 



f ile . 

Ask the user to specify the network address of 
the destination. 

5. Upon successful transmission of the entire 
file the program will restart. 

2. Receive a file or message: The program will, upon 
selection of this mode, wait in a loop for any 
transmissions addressed to it to arrive. After the 
receipt of any file or message, the program will 
return to the wait loop. This feature allows the 
user to leave the system unattended and then send 
multiple files and/or messages to it from another 
network host. The urogram numbers files in the 
order they are received beginning with RECFHOM0.NET, 
etc. Text files received from the VAX must be run 
through the CP/M PI? utility as follows: 

'pip ne wf i Iname . f iletype=RECTROM_. net [D 80] ” which will 
chop off unneeded characters. The user can exit the 
wait loo? to return to the above menus by entering 
a carriage return. 

3. Terminal service with the VAX 11/T80: The program will 
display a set of instructions to the user concerning 
the operation of the program in this mode. The user 
can input text after each V -prompt vV>) appearance. 

To exit this mode, the user must enter a period (.) 
followed by a carriage return immediately following 
any V-prompt (V>). Upon exiting this mode, the 
program returns to the beginning user menus. 

4. Command VAX file transfers; This mode allows the 
INTELLEC system to command the VAX to either send or 
receive files by sending it specially coded messages. 
The procedure is as follows : 

A. downloading VAX files; 

1. The user must enter the message: 

"!VAX filename.VAXfiletype/TXT or EXE'” 

2. The specified VAX file will then be sent to 
the requesting unit. 

3. In the above message, TXT refers to text and 
EXE refers to machine code files. 

4. After the file receipt is completed, the 
puser can exit the wait loop by entering a 
carraige return. 

3. Uploading VAX files; 

1. The user must enter the message: 

"0VAX filename. VAX filetype/TXT or EXE'" 

2. The above message opens a file by the above 
filename and^^f iletype on the VAX. The VAX 
will reply: "Ready for sendfile EN.FT' and the 
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pro,?ran will be in the receive wait loon. 

3. The user must then enter a carriage return to 
the beginning of the program and then follow 
the normal file sending procedures as noted 
above . 

5. Disconnect from the network: Selection of this mode 
causes the program to return control to the CP/M-S3 
operating system. 

The other features of this program are as follows: 

1. Error handling: The below listed transmission or 
reception errors will cause the program to disolay 
error messages and return to CP/M-80: 

A. Receipt of a bad frame. 

B. Receipt of a frame that has an impronerly encoded 
type field. 

C. Acknowledge frame not received by the sending host 
in a given time frame (Source timed out). 

D. Receipt of a file larger than the disk space 
remaining (Disk full). 

2. Sneclal instructions for lAPX 432 files that must be 
transferred from the VAX to an HTELLEC system running 
the Intel ISIS-II operating system; 

A. These special files can only be transferred using 
the VAX command mode. The VAX/VMS program 
STHERNET.EXE must be invoked on the VAX in order 
for this transfer to be successful. 

3. The procedure is as follows: 

1. After downloading the file to the INTELLZC 
double density system using ETHERNET. COM and 
CP/M-82, the user must rename it from the 
name assigned to it by the receive program to 
it's original name. 

2. The user must put the CP/M-S0 liSK in drive A 
which must have stored on it both the renamed 
file and the program TOISIS.COM. 

3. The user mi’St then insert an ISIS-II disk into 
drive B. 

4. The user then, while logged on drive A, must 
invoke TOISIS filename .filetype . This will 
convert the program on disk A to the ISIS-II 
format and store it on disk 3. 

5. The user must then remove the CP/M-80 disk in 
drive A and replace it with the disk from 
drive 3. 

5. The last step is to reboot the INTELLZC 
system under the ISIS-II operating system 
and proceed with the lAPX 432 orocedures. 
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